
File Number 1130-36 
Form Y26-3714-0 



■■■ATI 

' T B ^F ki ' Program Logic 



IBM 1130 Disk Monitor Programming System/ Version 2 
Program Logic Manual 

Program Numbers 

1130-0S-005 

1130-0S-00B 

This publication describes the internal logic of the IBM 1130 Disk 
Monitor Programming System, Version 2. The contents are intended 
for use by persons involved in program maintenance, and for system 
programmers who are altering the program design. Program logic 
information is not necessary for the use and operation of the program; 
therefore, distribution of this manual is limited to those who are 
performing the aforementioned functions. 



Restricted Distribution 



PREFACE 



This publication is composed of four parts. Part 1 
is a description of each of the components of the 
monitor system. Sections of Part 1 are devoted to: 

System Communication areas 

System Loader 

Cold Start Programs 

Resident Monitor 

Supervisor 

Core Image Loader 

Core Load Builder 

Disk Utility Program (DUP) 

Assembler Program 

FORTRAN Compiler 

System Library 

Stand-alone Utilities 

Each description includes a discussion of the logical 
structure and functional operation of the component, 
table formats, and core storage layouts. 

Part 2 is a description of the techniques and pro- 
cedures for use by personnel involved in system 
maintenance and/or modification during error diag- 
nosis and program analysis. 

Part 3 is the flowcharts for the monitor system 
components described in Part 1. 

Part 4 is the appendices provided to support 
Parts 1 through 3. 



CONVENTIONS OBSERVED 

The following conventions have been observed in this 
publication: 

1. Numbers written in the form /XXXX are hexa- 
decimal nimbers; numbers written without a 
preceding slash (/) are decimal numbers. 

2. The diagnms showing the layouts of core storage 
are intended to illustrate the contents of core 
storage and their relative locations; no exact 
representation of size or proportion is intended. 
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IBM 1130 Disk Monitor System, Version 2, Program - 
ming and Operator's Guide (Form C26-3717) 
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SECTION 1. INTRODUCTION 



The 1130 Disk Monitor System, Version 2, consists 
of the following components: 



Communication Areas 

This component consists of the in-core communica- 
tion area (COMMA) and the disk-resident communica- 
tion area (DCOM). 

Generally speaking, COMMA contains only those 
parameters required by the monitor system to fetch 
a program stored on disk in disk core image format 
(DCI). 

DCOM contains all the parameters required by 
the monitor system that are not found in COMMA. 



System Loader 

This component provides the means for loading all, 
or reloading a part of, the monitor system onto disk. 
In other words, the System Loader generates the 
monitor system on disk. 



Cold Start Programs 



This component consists of the Cold Start Loader and 
the Cold Start Program. 

The Cold Start Loader is the bootstrap loader used 
in the IPL procedure to initiate the operation of the 
Cold Start Program. 

The Cold Start Program reads the monitor system, 
i. e. , the Resident Monitor, into core storage and 
transfers control to it. 



CALL LINK, and CALL EXIT statements, and 
various I/O traps. 

One of the three disk I/O subroutines is present 
in the Resident Monitor at all times. The disk I/O 
subroutine in the Resident Monitor is the only such 
subroutine in core storage at any one time. Any of 
the three disk I/O subroutines can be used by the 
user. The DISKZ subroutine is used by the 
monitor system programs; DISKZ is initially loaded 
when a cold start is performed. 



Supervisor 

This component consists of the Monitor Control 
Record Analyzer (MCRA), the Supervisor Control 
Record Analyzer, the Auxiliary Supervisor, and 
the System Core Dump program. 

The MCRA is the program that reads and analyzes 
the monitor control records, initiating the actions 
indicated on those control records. 

The Supervisor Control Record Analyzer is the 
program that reads and analyzes the Supervisor 
control records, passing the information on these 
control records to the Core Load Builder. 

The Auxiliary Supervisor is the program called 
to perform specialized supervisory functions for the 
monitor system. 

The System Core Dump program is the program 
used to print all or selected portions of the contents 
of core storage on the principal print device. The 
dump can be dynamic (execution of the calling core 
load is resumed after the completion of the dump) or 
terminal (a CALL EXIT is executed after the com- 
pletion of the dump) . 



Resident Monitor 

This component consists of three intermixed parts: 
(1) COMMA, (2) the Skeleton Supervisor, and (3) 
one of the three disk I/O subroutines — DISKZ, 
DISK1, or DISKN. 

COMMA is defined above, under Communication 
Areas . 

The Skeleton Supervisor consists of the core- 
resident coding necessary to process CALL DUMP, 



Core Image Loader 

This component consists of two parts, the first being 
an intermediate supervisor for the monitor system, 
the second being a loader for user and system pro- 
grams in core image format. 

Phase 1 of the Core Image Loader is fetched into 
core storage as the result of an entry to the 
Skeleton Supervisor. Phase 1 is the program that 
determines the type of entry made and the program(s) 
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to be fetched as a result. 

Phase 2 of the Core Image Loader is the program 
that fetches into core storage and, if indicated, 
transfers control to the program(s) indicated by 
phase 1. 



Core Load Builder 



This component is the program that converts a main- 
line program from disk system format (DSF) to a core 
load, a program in disk core image format (DCI); 
that is, the Core Load Builder relocates the mainline 
program and all the subroutines required and con- 
structs the other necessary parts of the core load, 
e.g. , the transfer vector, LOCALs, and SOCALs. 



Disk Utility Program (PUP) 

This component provides the means for performing 
the following functions, largely through the use of 
control records only: 

1. Make available the contents of disk storage in 
punched or printed format — DUMP, 
DUMPDATA. 

2. Print a map of the contents of the variable por- 
tions of disk storage — DUMP LET, 
DUMPFLET. 

3. Store information on the disk in disk system 
format (DSF), disk data format (DDF), or disk 
core image format (DCI) — STORE, 
STOREDATA, STOREDATACI, STORECI, 
STOREMOD. 

4. Remove information from the User/Fixed Area -- 
DELETE. 

5. Alter the allocation of the Fixed Area on the disk 
or delete the Assembler Program and/or the 
FORTRAN Compiler from the monitor system — 
DEFINE. 

6. Initialize the Working Storage area on disk — 
DWADR. 

7. Provide file protection for the contents of disk 
storage. 



Assembler Program 

This component is the program that translates the 
statements of a source program written in the IBM 
1130 Assembler Language into a program in disk 
system format (DSF). 



FORTRAN Compiler 

This component is the program that translates the 
statements of a source program written in the IBM 
1130 Basic FORTRAN IV Language into a program in 
disk system format (DSF). 



System Library 

This component consists of (1) a complete library 
of input/output (except disk I/O), data conversion, 
arithmetic, and function subroutines, (2) selective 
dump subroutines, and (3) special programs for disk 
maintenance. 



System Device Subroutines 

This component consists of a library of special 
subroutines, one for each device (except the disk) 
used by the monitor system programs. These sub- 
routines and DISKZ are the only device subroutines 
used by the monitor system programs. 



Utilities 

This component consists of the following stand-alone, 
self-loading utility programs: 

1. The 2501/1442 Card Loader 

2. The Disk Cartridge Initialization Program (DCIP) 

3. The Core-Dump-to-Printer Program 

In general the organization of and flow of control 
through the 1130 Disk Monitor System, Version 2, 
is shown in Flowchart DMS01. 



SECTION 2. COMMUNICATIONS AREAS 



THE IN-CORE COMMUNICATIONS AREA (COMMA) 

COMMA includes, for the most part, only those 
system parameters that are required to link from one 
core load to another that is stored on disk in disk 
core image format (DCI). The exceptions are those 
parameters that would create awkward communica- 
tion between monitor system programs if they 
resided in DCOM. 

COMMA is not a single block of locations in the 
Resident Monitor; the system parameters that con- 
stitute COMMA are intermixed with the various parts 
of the Skeleton Supervisor. 

Table 1 is a description of COMMA by parameter. 
The entries are arranged in alphabetic sequence for 
easy reference. See the listing of the Resident 
Monitor in Appendix B. Listings for the absolute 
addresses associated with the parameters in this 
table. 



THE DISK-RESIDENT COMMUNICATIONS AREA 
(DCOM) 

DCOM contains those parameters that must be passed 
from one monitor system program to another but are 
not found in COMMA. 

Table 2 is a description of DCOM by parameter. 
The entries are arranged in alphabetic sequence for 
easy reference. See the listing of DCOM in Appendix 
B. Listings for the relative addresses associated " 
with the parameters in this table. 



DRIVE- AND CARTRIDGE -DEPENDENT 
PARAMETERS 

Whenever a parameter that is associated with a disk 
cartridge is required for system use during a job, 
a table of five such parameters (a quintuple), one for 
each of the five possible drives, is reserved in 
COMMA or DCOM. The first of the five parameters 
is assigned a label. Such a parameter is said to be 
a drive- or cartridge-dependent parameter, which- 
ever term is applicable. 

The position in the quintuple indicates the logical 
drive number of the drive on which the associated 
cartridge is mounted. Thus, the first parameter in 
a quintuple is associated with logical drive zero, the 
second with logical drive one, etc. The assignment 
of logical drive numbers is done during JOB process- 
ing; that is, the logical drive numbers are assigned 
in the sequence specified on the JOB monitor control 
record. Thus, the first cartridge specified is 
assigned to logical drive zero, the second to logical 
drive one, etc. If no cartridges at all are specified, 
then the current logical drive zero is defined as 
logical drive zero for the job being defined. The 
drive- and cartridge-dependent parameters for all 
unspecified cartridges are cleared to zero, except 
for logical drive zero as noted above. 

JOB processing includes the reading of DCOM and 
the ID sector from each specified cartridge and the 
setting up of the drive- and cartridge-dependent 
quintuples in DCOM on the master cartridge. 

Initialization of the quintuples is done during cold 
start processing, which defines logical drive zero 
(and all associated drive- and cartridge-dependent 
parameters for logical drive zero) as the physical 
drive selected in the Console Entry switches (see 
Section 4. Cold Start Programs) . All other values 
in the drive- and cartridge-dependent quintuples are 
cleared to zero. 
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Table 1 . The Contents of COMMA 



LABEL 



$ACDE 
through 
$ACDE+4 



SAC EX 

and 
$ACEXH 



$CCAD 
$CH12 

$CIBA 

$CIBA-1 

$CILA 
$CLSW 



$COMN 
$CORE 



$CPTR 
$CTSW 



DESCRIPTION 



$ACDE contains the device code for the physical disk 
drive assigned as logical disk drive 0. $ACDE+1 through 
$ACDE+4 contain the device codes for logical disk drives 
1,2, 3, and 4, respectively. The device code is 
contained in bits 11-15. 

$ACEX and $ACEX+1 are the locations in which the 
contents of the accumulator and extension, respec- 
tively, are saved by the Supervisor when entered at 
the $DUMP entry point. 

$CCAD contains the address of the lowest-addressed 
word of COMMON to be saved on the Core Image 
Buffer (CIB) by the Core Image Loader. 

$CH12 contains the address of $CPTR, $1132, or $1403 
depending upon the device defined as the principal 
print device — the Console Printer, 1132 Printer, or 
1403 Printer, respectively. 

$CIBA contains the sector address of the first sector of 
the Core Image Buffer (CIB) In use by the monitor 
system programs during the current job. The logical 
disk drive number is contained in bits 0-3. 

$CIBA-1 contains 4095 minus the location of $CIBA. 
This value is used as the word count (in conjunction 
with $C(BA, which contains the sector address of the 
CIB) in saving the first 4K of core storage following 
an entry at $DUMP. 

$CILA contains the address of the end of the disk I/O 
subroutine currently In core storage, minus 4. $CILA 
always points to the word count (followed by the 
sector address) of phase 1 of the Core Image Loader. 

$CLSW is a switch Indicating to phase 2 of the Core 
Image Loader the function It is to perform. The switch 
settings are as follows: 

Setting Meaning 

Positive Load the indicated disk I/O 

subroutine 
Zero or Load the indicated core load 

Negative and Its required disk I/O 

subroutine. Zero indicates 
that the core load has just 
been built by the Core Load 
Builder; negative Indicates 
that the core load is stored 
in the User or Fixed Area in 
core Image format. 

$COMN contains the number of words of COMMON 
defined for the core load currently in execution. 

$CORE contains a code indicating the number of words 
of core storage within which the monitor system pro- 
grams are to operate. The codes are as follows: 



Code 



Size of Core Storage 



/1000 


4096 words 


/2000 


8192 words 


/4000 


16384 words 


/8000 


32768 words 



$CPTR is a dummy channel 12 indicator for the 
Console Printer. 

$CTSW is a switch indicating that a monitor control 
record has been detected by a monitor system program 
other than the Supervisor. The switch settings are as 
follows: 

Setting Meaning 

Positive Monitor control record detected 

Zero Monitor control record not detected 



LABEL 


DESCRIPTION 


$CWCT 


$CWCT contains the number of words of COMMON 
to be saved on the Core Image Buffer (CIB) by the 
Core Image Loader. 


$CWCT+1 


$CWCT+1 contains the sector address of the first sector 
of the Core Image Buffer (CIB) to be used for the saving 
of COMMON by the Core Image Loader. The logical 
disk drive number is contained in bits 0-3. 


$CXR1 


$CXR1 is the location In which the contents of index 
register 1 are saved by the Skeleton Supervisor. 


$CYLN 
through 
$CYLN+4 


$CYLN contains the sector address of sector on the 
cylinder over which the access arm on logical disk 
drive is currently positioned. $CYLN+1 through 
$CYLN+4 contain analogous sector addresses for logi- 
cal disk drives 1, 2, 3, and 4, respective 1)'. 


$DABL 


$DABL contains the second word of the IOCC used 
to reset the Synchronous Communications Adapter. 
$DABL is, therefore, aligned on an odd wo: - d boundary. 
$DABL contains /5540, the bit configuration of an 
Initiate Write with modifier bit 9 on. 


$DADR 


$DADR contains the disk block address of the first 
sector of the program or core load to be fetched into 
core storage and executed. 


$DBSY 


$DBSY is a switch indicating whether or no" a disk 
I/O operation is in progress. The switch settings are 
as follows: 




Setting Meaning 




zero Disk I/O not in progress 
non-zero Disk I/O in progress 




$DBSY is simultaneously used as a retry counter by 
DISKZ and DISKl. 


$DCDE 


$DCDE contains the number of the logical disk drive on 
which the program to be fetched by the Core Image 
Loader is to be found. The drive number is contained 
in bits 0-3. 


$DCYL 
through 
$DCYL+14 


$DCYL through $DCYL+2 contain the defecHve cyl- 
inder addresses (the contents of words 1, 2, and 3 
of sector 0, cylinder 0) for the cartridge mounted 
on logical disk drive 0. $DCYL+3 through &DCYL+14 
contain analogous addresses for the cartridges on 
logical disk drives 1, 2, 3, and 4, respectively. 


$DDSW 


$DDSW contains the device status word (DSW) sensed 
during the last disk I/O operation performed. 


$DMPF 


$DMPF contains the contents of the word following 
the branch to the $DUMP entry point, i.e., the 
dump format code . 


$DREQ 


$DREQ is a switch indicating the disk I/O subroutine 
that has been requested. The switch settings are as 
follows: 




Setting Meaning 




positive DISKN 
zero DISKl 
negative DISKZ 


$DZ1N 


$DZ1N is a switch indicating the disk I/O subroutine 
presently in core storage. The swi tch settings are as 
follows: 




Setting Meaning 




negative DISKZ is in core 
zero DISKl is In core 
positive DISKN is in core 
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LABEL 



$FPAD 
through 
$FPAD+4 



$HASH 
through 
$HASH + 11 

$IBSY 



DESCRIPTION 



$IBT2 



$IBT4 



$IOCT 



$IREQ 



$KCSW 



$LAST 



$LKNM 

and 

$LKNM+1 



$FPAD contains the 1 sector address of the first sector of 
Working Storage on the cartridge mounted on logical 
disk drive 0. The logical disk drive number is con- 
tained in bits 0-3. $FPAD+1 through $FPAD+4 contain 
analogous sector addresses for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 

$FPAD through $FPAD+4 are effectively the file- 
protection addresses for the cartridges in use. These 
addresses are adjusted in non-temporary mode only. 

$HASH through $HASH + 1 1 are a work area used vari- 
ously by the monitor system programs. 



$IBSY is a switch indicating whether or not an I/O 
operation involving the principal I/O device is in 
progress. The switch settings are as follows: 

Setting Meaning 

zero Principal I/O device not busy 

non-zero Principal I/O device busy 

$IBT2 contains the address of the interrupt branch 
table (IBT) for interrupt level 2. Since the disk is the 
only device on interrupt level 2, $IBT2 contains the 
address of the interrupt entry point in the disk I/O 
subroutine currently in core storage. 

$IBT4 contains the address of the interrupt branch table 
(IBT) for interrupt level 4 used by the program currently 
in control . 

$IOCT is the IOCS counter for I/O operations. $IOCT 
is incremented by 1 for each I/O operation initiated. 
$IOCT is decremented by 1 for each I/O operation 
completed or terminated. $IOCT equals zero when 
all I/O operations have been completed. 

$IREQ contains the address of the subroutine servicing 
the INTERRUPT REQUEST key on the Keyboard (interrupt 
level 4). This address is supplied by the user core load 
using the INTERRUPT REQUEST key. Unless an address 
is supplied $IREQ contains the address of the $DUMP 
entry point. 

$KCSW is a switch indicating whether or not (1) the 
Keyboard has been defined as the principal input device 
and/or (2) the Console Printer has been defined as the 
principal print device. The switch settings are as 
follows: 

Settings Meaning 

negative Either the Console Printer is the princi- 

pal print device or the Keyboard is 
the principal input device, but not 
both 

zero Neither is the Console Printer the 

principal print device nor is the 
Keyboard the principal input device 

positive The Console Printer is the principal 

print device and the Keyboard is 
the principal input device 

Depending on the setting on $KCSW, the system device 
subroutine for the Keyboard/Console Printer either 
permits or inhibits the overlapping of input and output. 

$LAST is a switch indicating whether or not the last 
card has been read by the system device subroutine serv- 
icing the card input device. The switch settings are as 
follows: 

Settings Meaning 

zero Last card has not been read 

non-zero Last card has been read 

$LKNM and $LKNM + 1 contain the name, in name 
code, of the program or core load to be executed next. 
$LKNM is aligned on an even word boundary. 



LABEL 


DESCRIPTION 


$LSAD 


$LSAD contains the absolute sector address of the first 
sector of the first LOCAL (or SOCAL if there are no 
LOCALs) for the core load currently in core. The 
logical disk drive number is contained in bits 0-3. 


$NDUP 


$NDUP is a switch indicating whether or not DUP 
operations may be performed. The switch settings are 
as follows: 




Setting Meaning 




zero Permit DUP operations 
non-zero Inhibit DUP operations 


$NEND 


$NEND is equivalent to the address of ths end of 
DISKN plus 1. 


$NXEQ 


$NXEQ is a switch indicating whether or not exe- 
cution of a user core load may be performed. The 
switch settings are as follows: 




Setting Meaning 




zero Permit core load execution 
non-zero Inhibit core load execution 


$PAUS 


$PAUS is a switch set by every ISS that does not set 
$IOCT when initiating an I/O operation, e.g., SCAT1. 
The switch settings are as follows: 




Setting Meaning 




zero Exit from the PAUS subroutine 
non-zero Branch back to the WAIT in the 
PAUS subroutine 


$PGCT 


$PBSY is a switch indicating whether or not an I/O 
operation involving the principal print device is in 
progress. The switch settings are as follows: 




Setting Meaning 




zero Principal print device not busy 
non-zero Principal print device busy 


$PGCT 


$PGCT contains the number, in binary, of the page of 
the job listing currently being printed. 


$PHSE 


$PHSE contains the SLET ID number (in bits 8-15) of the 
phase of the monitor system program currently in con- 
trol, excepting the Cold Start Program and the Skeleton 
Supervisor. $PHSE always contains zero when a user 
core load is in control. Bits 0-7 of $PHSE sometimes 
contain a subphase ID number. 


$RMSW 


$RMSW is a switch indicating the entry point at which 
the Skeleton Supervisor was entered and, hence, the 
type of CALL causing the Skeleton Supervisor to be 
entered. The switch settings are as follows: 




Setting Meaning 




positive Entry at $DUMP 
zero Entry at $LINK 
negative Entry at $EXIT 


$RWCZ 


$RWCZ is a switch indicating the type of operation last 
performed by the CARDZ subroutine. The switch settings 
are as follows: 




Setting Meaning 




zero Last operation a Read 
non-zero Last operation a Punch 


$SCAN 
through 
$SCAN+7 


$SCAN through $SCAN+7 are an area used by the 1 132 
Printer when printing a line. This area is also used as 
a work area by the monitor system programs. 
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Table 1 . The Contents of COMMA (Concluded) 



Table 2 . The Contents of DCOM 



LABEL 



$SNLT 



DESCRIPTION 



$SYSC 



$UFDR 



$UFIO 



$ULET 

through 

$ULET+4 



$WRD1 
$WSDR 

$ZEND 
$1END 
$1132 



$1403 



$SNLT is the location used for sense light simulation 
by FORTRAN programs. The bits are used as follows: 



Bit 



Sense Light 



14 


1 


13 


2 


12 


3 


11 


4 



$SYSC contains the version and modification level 
numbers identifying the 1130 Disk Monitor System. 
Bits 0-7 contain the version number; bits 8-15 con- 
tain the modification level number. 

$UFDR contains the number of the logical disk drive 
on which the unformatted I/O area in use by the 
monitor system programs during the current job is to 
be found. The drive number is contained in bits 0-3. 

$UFIO contains the displacement, in sectors, from the 
start of the unformatted I/O area to the sector at 
which the writing or reading of the next logical 
record to or from the unformatted I/O area is to begin. 

$ULET contains the sector address of the first sector 
of LET on the cartridge mounted on logical disk drive 
0. The logical disk drive number is contained in 
bits 0-3. $ULET+1 through $ULET+4 contain ana- 
logous sector addresses for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 

$WRD1 contains the address at which the first word of 
the core image header of the core load to be/being 
executed will/does reside. 

$WSDR contains the number of the logical disk drive 
on which the Working Storage in use by the monitor 
system programs during the current job is to be found. 
The drive number is contained in bits 0-3. 

$ZEND is equivalent to the address of the end of 
DISKZplus 1. 

$1END is equivalent to the address of the end of 
DISK1 plus 1. 

$1 132 is a switch indicating whether or not channel 
12 has been detected on the 1132 Printer. The 
switch settings are as follows: 

Setting Meaning 



zero Channel 12 not detected or a skip 

to channel 1 executed 
non-zero Channel 12 detected 

$1403 is a switch indicating whether or not channel 
12 has been detected on the 1403 Printer. The 
switch settings are as follows: 

Setting Meaning 

zero Channel 12 not detected or a skip 

to channel 1 executed 
non-zero Channel 12 detected 



LABEL 



# ANDU 
through 
#ANDU+4 



#BNDU 
through 
#BNDU+4 



#CBSW 



#CIAD 



#CIBA 

through 

#CIBA+4 



# CIDN 
through 
#CIDN+4 



#CSHN 
through 
#CSHN+4 



#DBCT 
#DCSW 



#ENTY 



DESCRIPTION 



*ANDU contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder on the cartridge 
mounted on logical disk drive to the last disk block 
of the User Area on that cartridge, plus 1 disk block. 
*ANDU+1 through ^ANDU+4 contain analogous dis- 
placements for the cartridges on logical disk, drives 1, 
2, 3, and 4, respectively. 

#ANDU through # ANDU+4 are effectively the ad- 
justed addresses of the ends of the User Areas on the 
cartridges in use. These addresses are adjusted in- 
stead of *BNDU through " , BNDU+4 during temporary 
mode, in parallel with #BNDU through 'BNDU+4 
during non-temporary mode. 

*BNDU contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder on the cartridge 
mounted on logical disk drive to the last disk 
block of the User Area on that cartridge, plus 1 disk 
block. # BNDU+1 through # BNDU+4 contain ana- 
logous displacements for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 
# BNDU through # BNDU+4 are effectively the base 
addresses of the ends of the User Areas on the 
cartridges in use. These addresses are adjusted only 
during non-temporary mode, in parallel with *ANDU 
through # ANDU+4. 

*CBSW is a switch indicating to the Core Load Builder 
the type of exit to be made. The switch settings are 
as follows: 

Setting Meaning 

zero Return to Core Image Loader 

non-zero Return to DUP 

*CIAD contains the relative location in sector 
@IDAD (within DISKZ) where the address of the 
Core Image Loader is to be found. 

^CIBA contains the sector address of the Core Image 
Buffer (CIB) on the cartridge mounted on logical disk 
drive 0. The logical disk drive number is contained 
in bits 0-3. # CIBA+1 through # CIBA+4 contain 
analogous sector addresses for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 

^CIDN contains the ID (the contents of word 4, 
sector 0, cylinder 0) of the cartridge mounted on 
logical disk drive 0. #CIDN+1 through # CIDN+4 
contain the IDs of the cartridges on logical disk 
drives 1, 2, 3, and 4, respectively. 

*CSHN contains the number of sectors available for 
expansion of the monitor system programs on the 
system cartridge mounted on logical disk drive 0. 
'CSHN+1 through *CSHN+4 contain analogous num- 
bers for any system cartridges mounted on Icgical 
disk drives 1, 2, 3, and 4, respectively. 

'DBCT contains the number of disk blocks occupied 
by the program, core load, or data file named on a 
DUP control record. 

*DCSW is a switch indicating to the ADRWS program 
the type of exit to be made. The switch settings are 
as follows: 

Setting Meaning 

zero Branch to $EXIT in Skeleton 

Supervisor 
non-zero Return to DUP 

*ENTY contains the address of entry point 1 in the 
program placed into system Working Storage by the 
Assembler or FORTRAN Compiler. This address is 
the address to be placed into word 12 of the DSF pro- 
gram header by DUP or the address from which word 1 
of the core image header is generated by the Core 
Load Builder. 
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LABEL 



#FCNT 
#FHOL 



#FLET 

through 

#FLET+4 



#FMAT 
through 
#FMAT+4 



#FPAD 
through 
#FPAD+4 



#FRDR 



# FSZE 



#JBSW 



#LCNT 
#MDF1 

#MDF2 



DESCRIPTION 



"rCNT contains the number of files defined for the 
core load being built or the execution to be init- 
ated . 

^FHOL contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder to the first disk 
block of the largest unused (1DUMY) area in the 
Fixed Area on the cartridge to which a STORE oper- 
ation is to be made. 

*FLET contains the sector address of the first sector 
of FLET on the cartridge mounted on logical disk 
drive 0. The logical disk drive number is contained 
in bits 0-3. # FLET+1 through #FLET+4 contain 
analogous sector addresses for the cartridges on 
logical disk drives 1, 2, 3, and 4, respectively. 

"rMAT is a switch indicating the format of the con- 
tents, if any, of Working Storage on the cartridge 
mounted on logical disk drive 0. "rMAT+1 through 
"TMAT+4 are analogous switches for Working Stor- 
age on logical disk drives 1, 2, 3 and 4, respectively, 
The switch settings are as follows: 



Setting Meaning 

negative disk core image format (DC I) 

zero disk system format (DSF) 

positive disk data format (DDF) 

^FPAD contains the sector address of the first sector 
of Working Storage on the cartridge mounted on 
logical disk drive 0. The logical disk drive number 
is contained in bits 0-3. #FPAD+1 through 
*FPAD+4 contain analogous sector addresses for the 
cartridges on logical disk drives 1, 2, 3, and 4, 
respectively. 

#FPAD through # FPAD+4 are effectively the file- 
protection addresses for the cartridges in use. These 
addresses are adjusted in non-temporary mode only. 

#FRDR contains the number of the logical disk drive 
on which the cartridge specified by the "FROM" 
cartridge ID (in columns 31-34 of the DUP control 
record) is mounted. The drive number is contained 
in bits 12-15. A negative number indicates that no 
ID was specified. 

*FSZE contains the number of disk blocks contained 
in the largest unused (IDUMY) area in the Fixed Area 
on the cartridge to which a STORE operation Is to be 
made. 

"UBSW is a switch indicating the mode of operation 
established by the. last JOB monitor control record. 
The switch settings are as follows: 



Setting 

zero 
non-zero 



Meaning 

temporary mode 
non-temporary mode. 



*LCNT contains the number of LOCALs specified for 
the execution to be initiated or the core load being 
built. 

# MDF1 contains, in bits 8-15, the number of DUP 
control records to be processed by DUP when called 
by the MODIF program. *MDF1 also contains, in 
bits 0-7, the number of errors detected by DUP during 
the processing of the DUP control records for the 
MODIF program. 

*MDF2 is a switch indicating to DUP that control 
must be returned to the MODIF program. The switch 
setting are as follows: 

Setting Meaning 

zero Do not return to MODIF 

non-zero Return to MODIF 



LABEL 


DESCRIPTION 


#MPSW 


*MPSW is a switch indicating to the Core Load Builder 
whether or not a core map is to be printed for each core 
load built during the current execution. The switch 
settings are as follows: 




Setting Meaning 




zero Do not print a core map 
non-zero Print a core map 


#NAME 

and 

#NAME+1 


*NAME and 'NAME+1 contain the name, in name 
code, of the program, core load, or data file currently 
being processed by the Supervisor, DUP, Core Load 
Builder, or Core Image Loader. The name is obtained 
from a control record or from a LET/FLET search. 
*NAME is aligned on an even word boundary. 


#NCNT 


*NCNT contains the number of NOCALs specified for 
the execution to be initiated or the core load being 
built. 


#PCID 

through 

#PCID+4 


*PCID contains the ID (the contents of word 4, sector 
0, cylinder 0) of the cartridge mounted on physical 
disk drive 0, if that drive is "ready". #PCID+1 
through *PCID+4 contain the IDs of the cartridges on 
physical disk drives 1, 2, 3, and 4, respectively, if 
the corresponding drives are "ready". The entries 
for "not ready" drives contain zeroes. 


#PIOD 


*PIOD is a switch indicating the device defined as the 
principal I/O device for the system. The switch 
settings are as follows: 




Setting Principal I/O Device 


positive 2501 with 1442, any model 
zero 1442, Model 6 or 7 
negati.ve 1134 with 1055 


#PPTR 


*PPTR is a switch indicating the device defined as the 
principal print device for the system. The switch 
settings are as follows: 




Setting Principal Print Device 


positive 1403 Printer 
zero 1 132 Printer 
negative Console Printer 


#RP67 


*RP67 is a switch indicating the type of card I/O 
device present on the system. The switch settings 
are as follows: 




Setting Card I/O Device 




zero 2501 with 1442, Model 5 
positive 1442, Model 6 or 7 


#SCRA 
through 
#SCRA+4 


*SCRA contains the sector address of the first sector 
of the Supervisor Control Record Area (SCRA) on the 
cartridge mounted on logical disk drive 0. The logical 
disk drive number is contained in bits 0-3. *SCRA+1 
through *SCRA+4 contain analogous sector addresses 
for any system cartridges on logical disk drives 1, 2, 
3, and 4, respectively. 


#SYSC 


*SYSC, on a system cartridge, contains the version 
and modification level numbers for the currently resi- 
dent 1 130 Disk Monitor System. Bits 0-7 contain the 
version number; bits 8-15 contain the modification 




level number. 
*SYSC on a non-system cartridge contains zeroes. 


#TODR 


*TODR contains the number of the logical disk drive 
on which the cartridge specified by the "TO" cartridge 
ID (in columns 36-40 of the DUP control record) is 
mounted. The drive number is contained in bits 12-15. 
A negative number indicates that no ID was specified. 
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Table 2 . The Contents of DCOM (Concluded) 



LABEL 


DESCRIPTION 


# UHOL 

# ULET 

through 

# ULET+4 

# USZE 

# WSCT 
through 

%SCT+4 


*UHOL contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder to the first disk 
block of the largest unused (1DUMY) area in the User 
Area on the cartridge to which a STORE operation is 
to be made . 

*ULET contains the sector address of the first sector of 
LET on the cartridge mounted on logical disk drive 0. 
The logical disk drive number is contained in bits 0-3. 
*ULET+1 through *ULET+4 contain analogous sector 
addresses for the cartridges on logical disk drives 1, 
2, 3, and 4, respectively. 

*USZE contains the number of disk blocks contained 
in the largest unused (1DUMY) area in the User Area 
on the cartridge to which a STORE operation is to be 
made. 

*WSCT contains the number of disk blocks occupied 
by a program, core load, or data file placed into 
Working Storage on the cartridge mounted on logical 
disk drive 0. #WSCT+1 through #WSCT+4 contain 
analogous disk block counts for the contents of Work- 
ing Storage on logical disk drives I, 2, 3, and 4, 
respectively. 



SECTION 3. SYSTEM LOADER 



FLOWCHARTS 



\%lo 



General: SYL01 P 

Phase 1: SYL02 p(2~"?~ 

Phase 2: SYL03 - SYL05 pWl$$~ l *L° 



Phase 1 processes the PHID control record, 
checks it for errors, and saves the data obtained 
from it for use by phase 2. The version and modifica- 
tion level number is taken from the PHID control 
record and saved. 

Phase 1 fetches phase 2 from disk into core 
storage and transfers control to it at MAING. 



PHASE 1 



FUNCTIONS 



Phase 1 determines which card I/O subroutine is to 
be used, i. e. , 2501 or 1442. If 250 1, a naturally 
relocatable 2501 subroutine overlays the 1442 sub- 
routine that is part of this phase. 

Phase 1 also reads the Console Entry switches to 
get the physical drive number (0-4) for the cartridge 
to be loaded. It sets up the PROGRAM STOP key 
interrupt trap. The Keyboard INTERRUPT REQUEST 
key is made non-effective until the monitor system 
programs have been loaded,, 

Phase 1 reads the Resident Monitor and DISKZ 
object decks into core storage and initializes them 
preparatory to loading phase 2 of the System Loader 
to disk. 

Phase 1 picks up defective track data from sector 
@IDAD on the cartridge to be used to initialize the 
disk I/O subroutine. 

Phase 1 loads phase 2 to cylinders 198 and 199 
(sectors /0630 through /063F) on disk. (These 
sector addresses are absolute; they are assembled 
as part of the phase 2 deck. ) If an initial load is 
being performed, subphase 1 is loaded to sector 
/0634, overlaying a part of the reload processing 
subroutine. Subphases 2 and 3 are loaded to sectors 
/063B and /063C. 

If an initial load is being performed, phase 1 
stores the Resident Image on sector @RIAD. (DISKZ 
is stored on disk by phase 2. ) 

Phase 1 processes the System Configuration 
records, saving the data obtained in the phase 1 
communications area for use by phase 2. At the 
end of the Configuration records processing, the 
accumulated data is checked for errors and consoli- 
dated for phase 2. If a CORE control record is 
present, its contents are processed and replace the 
calculated core size. 



BUFFERS AND I/O AREAS 



Card Input 

A: an 80-word buffer that contains card images in 
left-justified 12 bit/word format, as read by the 1442 
or 2501 card I/O subroutine. 

B: a 60-word buffer that contains the 12-bit/word 
data from buffer A after it has been compressed to 
16 bits/word. 




for PTTC/8 records. 



uffer into which binary data from 
compressed. 



C: al- 
when 



used for the Delete character test 
binar\paper tape records. 



BI0CB: a 108-word buffer for binary paper tape 
records, 108 frames, lelt-justified. 



Disk Input and Output 

BUFFI: a 320-word buffer used in all disk I/O 
operations. 

COMMUNICATION FROM PHASE 1 TO PHASE 2 

The card I/O subroutine (2501 or 1442) that was 
selected by phase 1 for use during System Loader 
operation is written onto sector /0638 to be used by 
phase 2 also. 
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Information acquired by phase 1 is accumulated 
in the area in core storage bounded by EDIT and 
EDIT+/0140. This 320-word area, which also con- 
tains a number of error messages, is written to 
sector /0632 before phase 2 is entered. 



PHASE 2 



FUNCTIONS, INITIAL LOAD AND RELOAD 

Phase 2 checks the phase ID number sequence for 
ascending order during initial loads only. 

Phase 2 performs a checksum test on all type A 
(data) records. 

Phase 2 builds the Reload Table in core storage as 
the monitor system program phases are loaded. 
Each 3 -word entry in the table consists of the ID 
number of a phase requesting SLET data, the relative 
location within the requesting phase where the SLET 
data is to be stored, and the number of SLET items 
to be supplied by the System Loader. On an initial 
load, this Reload Table is written to disk in sector 
@RTBL. 

If so indicated by the Load Mode control record, 
phase 2 bypasses the FORTRAN Compiler and/or the 
Assembler Program. 

Phase 2 updates the version and modification level 
numbers in the parameter #SYSC in sector @DCOM 
of the cartridge. These numbers are taken directly 
from the PHID control record. No comparison with 
previous version and modification level numbers is 
made. 

Phase 2 determines from the data obtained from 
the System Configuration records which devices are 
the principal I/O and principal print devices. Phase 
2 builds five special sets of SLET entries for the 
specified devices as well as for the principal I/O and 
print device convers ion subroutines. 

Phase 2 steps through the Reload Table and 
searches out every phase requesting SLET data. It 
then searches out the SLET data that is requested, 
places it in the requesting phase, and writes that 
phase back to disk. This continues until the end of 
the Reload Table (/FFFF) is reached. 

Phase 2 substitutes zeros for the SLET data 
requested by a phase if that phase requested a 
FORTRAN Compiler and/or Assembler Program 
SLET entry and the FORTRAN Compiler and/or the 
Assembler Program were bypassed or never loaded. 

Phase 2 displays appropriate error messages, as 
necessary, using the WRTYO subroutine in core 
storage. 



FUNCTIONS, INITIAL LOAD ONLY 

Phase 2 clears to zero the sectors that will become 
the SLET table. The SLET entries are filled in as 
each monitor system program is stored. 

Phase 2 checks for missing phases. All phases 
specified in the PHID control record must be present, 
except when the FORTRAN Compiler and/or the 
Assembler Program are bypassed. 

Phase 2 keeps a record of the highest sector 
loaded so that the sector addresses for the Supervisor 
Control Record Area (SCRA), Core Image Buffer 
(CIB), Location Equivalence Table (LET), and User 
Area (UA) on disk may be correctly established. 

Phase 2 checks the data obtained from the Load 
Mode control record and, if the FORTRAN Compiler 
and/or the Assembler Program are to be bypassed, 
a gap is forced in SLET and filled with zeros. These 
zero entries in SLET occupy as much space as the 
bypassed program(s) would ordinarily require. 



FUNCTIONS, RELOAD ONLY 

Phase 2 verifies that the file-protection address is 
not greater than /062F. (Otherwise, phase 2 cannot 
be temporarily stored on disk. ) 

Phase 2 updates the SLET entries for each phase 
as that phase is reloaded. 

Phase 2 provides for expansion of the system into 
the Cushion Area when required. If a phase grows 
by more than one sector, it is expanded accordingly. 
All subsequent SLET entries are updated each time 
an expansion occurs. A check is made to see that 
the Supervisor Control Record Area (SCRA) is not 
overlaid. 

Phase 2 constructs an in-core Reload Table. At 
the end of the monitor system program reload, the 
data that was accumulated as one or more phases 
were reloaded is first compared with the existing 
Reload Table on disk. Entries are replaced or added 
to the Reload Table as necessary. Then the updated 
Reload Table is processed as described above. 



BUFFERS AND I/O AREAS 



Card Input 

A: an 80-word buffer that contains card images in 
left-justified 12 bit/word format, as read by the 
1442 or 2501 card I/O subroutine. 
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A2; an 80-word buffer used in conjunction with 
buffer A for double buffering capability. This buffer 
is used only by the 2501 card I/O subroutine. 

B: a 60-word buffer into which 12 bits/word data is 
compressed from buffer A ,when a 1442 is used as 
the input device, or from buffers A and A2 when a 
2501 is used. 



Paper Tape Input 

B: a 60-word buffer into which binary data from 
buffer BIGCB is compressed. 

C: a 1-word buffer used for the Delete character 
test when reading binary paper tape records. 

BIGCB: a 108-word buffer for binary paper tape 
records, 108 frames, left-justified. 



Disk Input and Output 

BUFFI : a 320-word buffer used in disk I/O opera- 
tions. 

FSLET : a 320-word buffer used for reading or 
writing a SLET sector. During a reload operation 
that requires expansion into the Cushion Area of the 
cartridge, a sector of SLET from FSLET is saved 
by writing it on the first sector of the CIB. The CIB 
is not cleared afterward. 

RTBFR: a buffer that is used to gather the data that 
will become the Reload Table. Its length is variable, 
up to 320 words. The word count (never over /0140) 
may be found in location RTBFR. 

SUBPHASES 

Subphase 1 

Subphase 1 contains the subroutines that are used 
only during an initial load. If an initial load is being 
performed, subphase 1 overlays a portion of phase 2 
that contains only reload subroutines. Phase 1 
determines from the Load Mode control record the 
type of load being performed, and either overlays 
the described area or bypasses the subphase 1 portion 
of the phase 2 deck. 



Most of the functions of this subphase involve the 
checking of the ID number of each phase as it is 
encountered. An error message (error 12, 14, or 
15) is displayed whenever a phase ID is encountered 
that is out of sequence or was not specified on the 
PHID control record. 



Subphase 2 

Subphase 2 contains the procedures for system 
initialization prior to the loading of the System 
Library. After the type 81 (end-of-system) record 
has been read, phase 2 fetches this subphase and 
overlays the area in core storage bounded by /0682 
through /07C1. 

Subphase 2 modifies the coding for the processing 
of those types of records that are no longer expected, 
so that if one of these records is encountered, an 
error message is printed. 

Subphase 2 looks up DISKZ in SLET and saves the 
word count and sector address so that DISKZ may be 
fetched during processing in subphase 3. 

Subphase 2 reads DOOM into the buffer FSLET. 
During an initial load DCOM is cleared to zeros, 
after which the following entries are initialized: 

Location Value Inserted 

#SYSC version and modification level from 

PHID control record 

#RP67 a positive value if a 1442, Model 6 or 

7 is present 

#PIOD the value indicating the principal I/O 

device, as determined from REQ control 
records 

#PPTR the value indicating the principal print 

device, as determined from REQ control 
records 

#CIAD relative location in sector @IDAD where 

CIL word count and sector address is 
maintained 

#ANDU file-protection disk block address 

#BNDU file-protection disk block address 

#FPAD file-protection or Working Storage 

address 
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#CIDN cartridge ED from word 4 of sector 

@IDAD 



#CIBA 



#ULET 



sector address of CIB 



#SCRA sector address of Supervisor Control 

Record Area 



sector address of LET 



#CSHN number of unused sectors between last 

system program and Supervisor Control 
Record Area. 



During a reload operation, only the following are 
updated: $CH12, $CORE, $IREQ, $CILA, and 
$IBT2, as described above. 

The first sector of LET is established and initial- 
ized with a 1DUMY entry, Working Storage disk block 
address, User Area sector address, and the number 
of unused words in the first sector of LET. All 
other words in LET are set to zero until the System 
Library is loaded. 

Subphase 2, on an initial load, goes to the Reload 
Table processing subroutine, and upon return, 
fetches and transfers control to subphase 3. 



During a reload operation, only the following are 
updated: #SYSC, #RP67, #PIOD, #PPTR, #CIAD, 
and #CSHN, as described above. 

Subphase 2 reads the Resident Image from disk in- 
to the buffer FSLET. During an initial load the 
Resident Image is initialized as follows: 

Locatio n Value Inserted 

$CH12 address of channel 12 indicator for 

the principal print device, as deter- 
mined from REQ control records 

$CORE core size (may be actual, or set by 

CORE control record) 



$DREQ 



$IREQ 



$DZIN 



a negative value indicating DISKZ 



$HASH and word count and sector address of 
$HASH+1 CIB 



address of $DUMP entry point 



$ULET sector address of LET for logical 

drive 

$CILA address of the end of DISKZ minus 1 

(location in DISKZ where the word 
count and sector address of the Core 
Image Loader is to be placed) 



a negative value indicating DISKZ 



$FPAD file-protection sector address for 

logical drive 

$DCYL table of defective cylinders (from 

sector @IDAD) 

$IBT2 address of level 2 interrupt branch 

table 



Subphase 3 

Subphase 3 clears the sign bits from all sector 
addresses in SLET and resets them according to the 
data obtained from the System Configuration records. 
(The sign bits are used to indicate which, if any, I/O 
devices are not present on the system. ) 

Subphase 3, on a reload operation, compares all 
entries in the Reload Table built in core storage with 
the Reload Table on disk. Phase ID numbers in the 
Reload Table on disk that match phase ED numbers in 
the Reload Table in core storage are replaced by 
those from the table in core storage. Any additional 
phase ID numbers from the table in core storage 
that are not present in the table on disk are added to 
the table on disk. At the conclusion of this update 
of the Reload Table on disk, it is completely re- 
processed by the W200 subroutine in phase 2. 

Subphase 3 places the word count and sector 
address of the Core Image Loader, obtained from 
SLET, into DISKZ in core storage and into DISKZ 
on cylinder 0. If a reload operation is being per- 
formed, subphase 3 displays "END RELOAD" and 
halts. 

On an initial load, subphase 3 branches to the 
Auxiliary Supervisor with a parameter of minus 5, 
causing a dummy DUP monitor control record to be 
placed in the Supervisor buffer and the Monitor 
Control Record Analyzer to be called via the $EXIT 
entry point in the Skeleton Supervisor. The Monitor 
Control Record Analyzer then calls DUP to load the 
System Library. 



CORE LAYOUT 

Figure 1 shows the layout of the contents of core 
storage during System Loader operation. 
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Figure 1 . Core Layout During System Loader Operation 



CARTRIDGE IDENTIFICATION SECTOR 

On an initial load, the System Loader uses the con- 
tents of the cartridge ID sector (sector @IDAD) as 
follows: 

The first three words of the sector (the defective 
cylinder table for the cartridge, initialized by the 
DCIP program) are placed into its disk I/O subroutine 



prior to performing any disk operations, and into 
locations $DCYL through $DCYL+2 in the Resident 
Image. 

The fourth word of the sector (the cartridge 
identification word, initialized by the DCIP or DISC 
program) is placed into location #CIDN in DCOM. 



SYSTEM LOCATION EQUIVALENCE TABLE (SLET) 

SLET occupies two adjacent sectors on the system 
cartridge. Its functions are: 

• To provide a convenient means for locating each 
monitor system program that has been stored on 
the system cartridge. 

• To indicate which are the principal I/O devices 
for the system. 

• To indicate which devices, if any, are not present 
on the system. 

When the System Loader initially stores a phase 
of a monitor system program on the disk, it makes 
a 4-word entry in SLET for that program consisting 
of: 

1. The phase identification (phase ID) number. 

2. The core loading address of the phase. This is 
the address in which the word count is to be 
stored prior to fetching the phase from the disk. 

3. The word count of the phase, not including the 
two words occupied by the word count and sector 
address used in fetching the phase from disk. 

4. The sector address of the phase. 

During an initial load, the SLET sectors are 
cleared to zero. The 4-word entries describing 
each phase are built into the table, phase by phase, 
as the monitor system programs are loaded. When 
a program, such as the Assembler Program, is to 
be bypassed, the words in SLET that it would nor- 
mally need (the number of phases in the program 
times 4) are left at zero and are bypassed. The 
SLET entry for the next program phase that is loaded 
follows this gap. (A program or phase not included 
during an initial load cannot later be included in a 
reload operation; a new initial load must be per- 
formed. ) 

All phase ID numbers in SLET are in ascending 
order. No duplications exist. The only jumps in 
sequence are between programs, not between phases 
within a program. 
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The five 4-word entries describing the principal 
I/O devices and the corresponding conversion sub- 
routines are built by the System Loader and do not 
come directly from program decks. These special 
entries, as well as all I/O phases, are located on 
the second of the two SLET sectors. 

The contents of SLET can be obtained at any time 
by an execution of the DSLET program (see the 
description of DSLET under Mainline Programs 
in Section 12. System Library) . 



RE LOAD TABLE 

The Reload Table occupies one sector on the system 
cartridge. It contains a 3-word entry for each phase 
that requests SLET information. Word 1 of each 
entry contains the phase ID number of the requesting 
phase. Word 2 of each entry contains the number of 
the location, relative to the beginning of the phase, 
where the SLET entries are to be inserted into the 



requesting phase. Word 3 of each entry contains the 
number of 4-word SLET entries to be inserted into 
the requesting phase. The phase ID number of the 
requesting phase itself is in 2's complement form 
to indicate to the System Loader that SLET data is 
requested by that phase. 

When completed at the end of an initial load or 
reload operation, the Reload Table consists of a 
string of 3 -word entries, as described above, except 
that the phase ID numbers have been recomplemented 
by the System Loader. At the end of the string is 
/FFFF. It may be at an odd or an even address, 
depending upon the length of the string. At the end 
of an initial load, the phase ID numbers are in 
ascending order. After one or more reload opera- 
tions the phase ID numbers may or may not be in 
ascending order. 

When a DEFINE VOID ASSEMBLER or DEFINE 
VOID FORTRAN operation is performed by DUP, 
all phase ID numbers belonging to the voided pro- 
gramas) are removed from the Reload Table. The 
remaining 3 -word entries in the Reload Table are 
packed together and terminated with /FFFF., 
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SECTION 4. COLD START PROGRAMS 



FLOWCHARTS 

Cold Start Loader: CST01 
Cold Start Program: CST02 



COLD START LOADER 

The Cold Start Loader is the one-card bootstrap used 
to initiate the operation of the Cold Start Program, 
which in turn initiates the operation of the monitor 
system. 

Since it is loaded by the IPL procedure, all 
instructions in the Cold Start Loader are in Load 
Mode format. Hence, the program must construct 
all IOCCs as well as any long instructions required 
by it. 

The first word set up after entering the program 
is the second word of the IOCC for reading the Con- 
sole Entry switches. After this is done, the number 
of the physical drive to be assigned as logical drive 
is obtained from the Console Entry switches. The 
program then checks to see if the number obtained 
is valid (0-4, inclusive). If it is not, the program 
comes to a WAIT from which the user may restart 
by entering a valid number and pressing the START 
key. Once a valid number has been obtained, the 
device code for the drive specified is constructed 
and saved (for use by the Cold Start Program as well 
as the Cold Start Loader). 

After setting up the second word of the IOCC for 
sensing the disk (with reset), the program senses the 
disk. All bits except the not-ready bit (bit 2) are 
masked out. If the drive is not ready, the program 
comes to the same WAIT mentioned above. 

Four long instructions are built, and the final 
steps in the setting up of the IOCC for seeking are 
performed. The word count of the Cold Start Pro- 
gram plus the word count of DISKZ plus 27 is stored 
in DZ000-29, the 27 being the number of words 
reserved in sector @IDAD for parameters. 

After setting up the second word of the IOCC 
for reading the disk, the program initiates a 
seek toward the home position, one cylinder at a 
time. When the seek is complete, sector zero on 
the cylinder currently under the read/write heads 
is read from the disk,, If no disk error occurs 



during this read and if the sector address is that of 
sector @IDAD, then a branch is made to $ZEND, 
which is the address of the first word of the Cold 
Start Program. 

If the sector address is not that of the Cold Start 
Program, another seek toward the home position is 
initiated. This seek-and-read process is repeated 
until the proper sector address is found. (There- 
fore, a cartridge with invalid sector addresses causes 
the program to function improperly. ) Any disk 
error results in the program coming to a WAIT with 
a /3028 in the storage address register. 



COLD START PROGRAM 

The Cold Start Program is fetched from the disk by 
and receives control from the Cold Start Loader. 

Using the same device code that was set up 
by the Cold Start Loader for the physical drive 
assigned as logical drive 0, the Cold Start Program 
reads the Resident Image into its normal location in 
core storage. Once this operation is performed, 
location zero is initialized with an MDX to $DUMP+l 
and the Auxiliary Supervisor is entered with a 
parameter of minus 1, causing it to place a dummy 
JOB monitor control record into the Supervisor 
buffer and execute a CALL EXIT. 



CORE LAYOUT 

Figure 2, panel 1, shows the layout of the contents 
of core storage after the Cold Start Loader has been 
loaded and, in turn, has fetched sector @IDAD from 
logical drive into core storage. This sector is 
read into core such that the DISKZ subroutine 
resides at DZ000, followed by the Cold Start Pro- 
gram. 

Figure 2, panel 2, shows the layout of the contents 
of core storage after the Cold Start Program has 
fetched the Resident Image from sector @RIAD 
from logical drive into core storage. The 
Resident Image, like DISKZ, is fetched so that all 
locations occupy their permanent positions in core 
storage. 
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Figure 2. Core Layout During Cold Start 
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SECTION 5. RESIDENT MONITOR 



FLOWCHARTS 



ERROR TRAPS 



CALL LINK, CALL EXIT, CALL DUMP Processor: 
SUP01 

The Resident Monitor consists of COMMA, the 
Skeleton Supervisor, and a disk I/O subroutine. 



COMMA 

For a description of COMMA and its contents, see 
Section 2. Communications Areas. 



There are six error traps in the Skeleton Super- 
visor: the preoperative error trap, the PROGRAM 
STOP key trap, and one postoperative error trap 
each for interrupt levels 1, 2, 3, and 4. 

Each error trap except for the PROGRAM STOP 
key trap consists of a link word, a WAIT instruc- 
tion, and a BSC indirect to the link word. The 
PROGRAM STOP key trap employs a BOSC indirect 
instead of a BSC indirect. 



SKELETON SUPERVISOR 

The Skeleton Supervisor is composed of: the CALL 
LINK, CALL DUMP, CALL EXIT processor; error 
traps for interrupt levels 1, 2, 3, and 4, the PRO- 
GRAM STOP key, and preoperative errors; and the 
ILSs for interrupt levels 2 and 4. 



ILSs 

The Skeleton Supervisor contains the ILSs for 
interrupt level 2 (ILS02) and interrupt level 4 (ILS04). 
These are used in all cases by all monitor system 
programs and by user programs in lieu of user- 
written ILS02 and/or ILS04 subroutines. 



CALL LINK, CALL DUMP, CALL EXIT PROCESSOR 



This portion of the Skeleton Supervisor indicates the 
type of entry made to it — LINK, DUMP, or EXIT — 
then fetches and transfers control to phase 1 of the 
Core Image Loader. 

On any entry at $DUMP locations $CIBA+1 through 
4095 are saved on the Core Image Buffer before they 
are overlaid by the monitor system programs re- 
quired for the core dump. 

On all entries to the Skeleton Supervisor, the 
two words following the branch instruction are saved 
to prevent their being overlaid and lost. They are 
needed only if the entry was at $LINK, at which time 
these two words contain the name of the link to be 
executed next. 



DISK I/O SUBROUTINE 

The Resident Monitor contains one of the three disk 
I/O subroutines at all times. The disk I/O sub- 
routine in the Resident Monitor is the disk I/O sub- 
routine currently in use. 

For a description of the DISKZ subroutine, see 
Section 13. System Device Subroutines. A listing 
of the DISKZ subroutine is contained in Appendix B. 
Listings. 

For descriptions of the DISK1 and DISKN sub- 
routines, see Section 12. System Library. 
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SECTION 6. SUPERVISOR 



FLOWCHARTS 

Monitor Control Record Analyzer: SUP02 - SUP05 
Supervisor Control Record Analyzer: SUP06-SUP08 
Auxiliary Supervisor: SUP10 
System Core Dump Program: SUP09 



MONITOR CONTROL RECORD ANALYZER - 
PHASE 1 



The Monitor Control Record Analyzer is the program 
that decodes monitor control records and takes the 
specified action. 

The Monitor Control Record Analyzer is entered 
via the $EXIT entry point in the Skeleton Supervisor. 
This entry causes the Core Image Loader to fetch 
the Monitor Control Record Analyzer and transfer 
control to it. 

The Monitor Control Record Analyzer utilizes the 
system I/O device subroutines. Three of these sub- 
routines (an input, an output, and the appropriate 
conversion subroutine) are fetched into core storage 
by the Monitor Control Record Analyzer itself, 
using SLET information provided by the System 
Loader. 

The Monitor Control Record Analyzer reads 
monitor control records from the principal input 
device into the Supervisor buffer, which occupies 
locations @SBFR through @SBFR+79 and contains a 
monitor control record in unpacked, right-justified 
EBCDIC format. 

The principal conversion subroutine checks for 
monitor control records. If the principal conversion 
subroutine detects a monitor control record during 
the execution of a monitor system program other 
than the Monitor Control Record Analyzer, $CTSW 
in COMMA is set to a positive non-zero value, the 
monitor control record is converted to unpacked, 
right-justified EBCDIC format, and the record is 
passed to the Monitor Control Record Analyzer in 
the locations assigned as the Supervisor buffer. 



JOB CONTROL RECORD PROCESSING 

Upon detecting a JOB control record, the Monitor 
Control Record Analyzer initializes the SLET in- 
formation for the principal input device, COMMA, 
DCOM, and LET. 

The entire heading sector (sector @HDNG) is 
cleared, "PAGEbbbl" is stored in words 0-3, and 
the contents of columns 51-58 of the JOB control 
record are stored in words 6-9. 

The SLET information for the device other than 
the Keyboard normally assigned as the principal 
input device replaces the SLET information for the 
current principal input device and its conversion 
subroutine. 

The following parameters in COMMA are 
initialized to zero: 



$COMN, 


$LAST, 


$PST1, 


$CTSW, 


$LINK, 


$PST2, 


$DADR, 


$NDUP, 


$PST3, 


$DUMP,/6o3P 


$NXEQ, 


$PST4, 


$IBSY, 


$PBSY, 


$SNLT, 


$IOCT, 


$PRET, 


$STOP, 
$WRD1 



In addition, $PGCT and $UFIO are set to one, and 
the address of $DUMP is stored in $IREQ. 

The cartridge IDs specified on the JOB control 
record are unpacked to one EBCDIC character per 
word, converted to binary, and stored in a five- 
word ID table to be used by the System Update 
program to update the cartridge -dependent tables 
in COMMA and DCOM (see System Update, below). 

$CIBA in COMMA is set by comparing the ID of 
the cartridge on which the CIB for the current job 
is to be found, as specified on the JOB control 
record, to the list of specified IDs and selecting the 
entry in #CIBA that corresponds to the matching ID. 
Similarly, $WSDR is set equivalent to the logical 
drive number of the ID that matches the Working 
Storage cartridge ID, and $UFDR is set equivalent 
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to the drive number that matches the unformatted 
I/O cartridge ID. 

The address of the adjusted end of the User Area 
(#ANDU) is compared to the address of the base end 
of the User Area (#BNDU) for each cartridge. If 
the two items are unequal for any cartridge, the 
temporary items in LET on that cartridge are 
deleted. A sector of LET is read and the disk block 
counts are accumulated until the sum is equivalent 
to #BNDU. The sector address of that sector and 
any following LET sectors are stored in a table 
(JB936) until a continuation of the disk block 
accumulation equals #ANDU. The next entry consists 
of a dummy name (IDUMY) and the size of Working 
Storage. The size of Working Storage is saved 
(JB934) and the entry is cleared. The preceding 
disk block counts are added one at a time to JB934, 
subtracted from #ANDU, and deleted until #ANDU 
equals #BNDU. If an entire sector is deleted before 
#ANDU equals #BNDU, it is necessary to fetch the 
sector address of the preceding LET sector from 
the table JB936 and read in that sector so the 
deletion process may be continued. When all the 
temporary entries have been deleted (#ANDU equals 
#BNDU) IDUMY is stored as the name, and the disk 
block count of the last entry is stored as the size of 
Working Storage. 

The following parameters in DCOM are set to 
zero: 



#CBSW, 
#DBCT, 
#DCSW, 

#ENTY, 
#FCNT, 
#FHOL, 



#FRDR, 
#FRMT, 

#FSZE, 
#LCNT, 
#MDF1, 

#MDF2, 



#MPSW, 

#NAME , 

#NCNT, 

#TODR, 

#UHOL, 

#USZE, 

#WSCT 



#JBSW is set to zero unless a 'T' appears in 
column 8 of the JOB control record, in which case 
#JBSW is set to a positive, non-zero value. 



The specified cartridge IDs are communicated to 
the System Update program in logical order and in 
tabular form from core storage or from disk. This 
table is referred to as ID LIST C 

A table of available cartridge IDs in physical 
order is formed by the System Update program by 
executing a command to read one word from each 
drive successively. If the drive is available and 
ready, the DSW, when immediately tested, shows 
a busy condition. DISKZ is then called to fetch the 
cartridge ID and defective cylinder addresses from 
sector @IDAD and the ID is stored in CART LIST. 
If a drive is not available or not ready, the 
appropriate position of CART LIST is set to zero. 

CART LIST is searched for each ID in ID LIST. 
When matching IDs are found, DCOM is fetched from 
the physical drive represented by the matching ID 
from CART LIST. The ID being processed is 
located in the #CIDN parameter in the DCOM just 
fetched. The entries from the drive- and cartridge- 
dependent parameters in DCOM in the position where 
the ID is found are moved to the corresponding drive- 
and cartridge -dependent parameters in the master 
DCOM in the position specified by the logical drive 
assignment for that ID. The entries for unspecified 
cartridges are set to zero. 

At the same time, the device code ($ACDE) and 
defective cylinder addresses ($DCYL) in COMMA 
are set. $ACDE is the only link between the logical 
and physical definition of a drive. The position of 
an entry in the $ACDE parameter defines the logical 
drive, and the device code defines the physical drive. 
The defective cylinder addresses are those fetched 
from words 0-2 of sector @IDAD of the cartridge. 
These addresses and cartridge IDs were set by the 
DCIP program. $FPAD and $ULET in COMMA are 
updated from the newly updated DCOM on the 
master cartridge. 



OTHER CONTROL RECORD PROCESSING 



SYSTEM UPDATE PROGRAM 

The purpose of the System Update program is to 
update the drive- and cartridge -dependent tables of 
the system cartridge DCOM to reflect the logical 
definition and contents of the cartridge in use during 
the current job, as specified by the JOB control 
record. 



Upon detecting an XEQ monitor control record, the 
Monitor Control Record Analyzer tests $NXEQ, the 
non-execute switch, in COMMA. If $NXEQ is zero, 
the Monitor Control Record Analyzer fetches and 
transfers control to the XEQ Control Record 
Processor (see below). Otherwise, the Monitor 
Control Record Analyzer prints an error message 
and reads the next control record for processing. 
Upon detecting an ASM or FOR monitor control 
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record the Monitor Control Record Analyzer fetches 
the first phase of the specified program using SLET 
information provided by the System Loader, and 
transfers control to it. 

Upon detecting a DUP monitor control record, 
the Monitor Control Record Analyzer tests $NDUP, 
the non-DUP switch, in COMMA. If $NDUP is zero, 
the Monitor Control Record Analyzer fetches and 
transfers control to the first phase of DUP. Other- 
wise, an error message is printed and the next 
control record is read for processing. 

Upon detecting a PAUS monitor control record, 
the Monitor Control Record Analyzer comes to a 
WAIT at the PROGRAM STOP key trap in the 
Resident Monitor. When the PROGRAM START key 
is pressed, the Monitor Control Record Analyzer 
reads and processes the next control record. 

Upon detecting a TYP monitor control record, 
the Monitor Control Record Analyzer replaces the 
SLET information used to fetch the principal input 
device subroutine and its associated conversion 
subroutine with the SLET information for the Key- 
board input subroutine and its associated conversion 
subroutine. These subroutines are then fetched and 
used for the reading and converting of subsequent 
input records from the Keyboard. 

Upon detecting a TEND monitor control record, 
the Monitor Control Record Analyzer replaces the 
SLET information used to fetch the principal input 
device (the Keyboard) subroutine and its associated 
conversion subroutine with the SLET information 
for the device subroutine and conversion subroutine 
used with the device normally assigned as the 
principal input device, i.e. , not the Keyboard. 
These subroutines are then fetched and used for the 
reading and converting of subsequent input records. 

Upon detecting a CPRNT monitor control record, 
the Monitor Control Record Analyzer replaces the 
SLET information used to fetch the principal print 
device subroutine with the SLET information for the 
Console Printer output subroutine. (This replace- 
ment is permanent and can be changed only by a 
new initial load of the system. ) This subroutine 
is then fetched and used for the printing of sub- 
sequent output records on the Console Printer. 



Upon detecting an EJECT monitor control record, 
the Monitor Control Record Analyzer ejects the page 
on the principal print device, prints the current 
page heading, and reads and processes the next 
monitor control record. 



XEQ CONTROL RECORD PROCESSOR - PHASE 2 

The XEQ Control Record Processor processes the 
XEQ monitor control record and the Supervisor 
control records - LOCAL, NOCAL, and FILES. 



XEQ CONTROL RECORD PROCESSING 

The presence of Supervisor control records follow- 
ing the XEQ control record is indicated by the con- 
tents of columns 16 and 17. If the number in these 
columns is not zero or blank, the Supervisor 
Control Record Analyzer, the subroutine that 
processes LOCAL, NOCAL, and FILES control 
records, is called. 

#MPSW in DCOM is set non-zero if an 'L' appears 
in column 14; otherwise, #MPSW is set to zero. 

$DREQ in COMMA is set according to the disk 
I/O subroutine indicated in column 19. If column 19 
is blank, $DREQ is set to indicate DISKZ. 

If a name appears in columns 8 through 12 of the 
XEQ control record, the name is converted to name 
code and the Core Image Loader is called via the 
$LINK entry point in the Skeleton Supervisor. (The 
2-word name of the program to be linked to follows 
the branch to $LINK.) 

If no name appears in the XEQ control record, 
phase 0/1 of the Core Load Builder is fetched into 
core storage and control is transferred to phase 0. 
The cartridge H) in columns 21-24 is located in 
#CIDN to determine the drive on which the program 
is to be found. This drive number is stored in 
$DCDE in COMMA. 
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SUPERVISOR CONTROL RECORD PROCESSING 



LOCAL/NOCAL Control R ecord Processing 

The mainline program name(s) and subroutine 
name(s) found on the LOCAL/NOCAL control 
records are converted to name code and stored on 
the Supervisor Control Record Area (SCRA). If 
a mainline program name is not specified, two words 
of blanks replace it in the SCRA. 

LOCAL control record information is stored in 
sectors and 1 of the SCRA. NOCAL control record 
information is stored in sectors 2 and 3. 



FILES Control Record Processing 

Each file number is converted to binary and stored 
in the SCRA. Following each file number in the 
SCRA is the file name in name code. If no name was 
specified, two words of zeros replace the name. 
Following each file name in the SCRA is the cartridge 
ID converted to binary. If no cartridge ID was 
specified for a file, one word of zeros replaces the 
cartridge ID. Both the file name and cartridge ID 
may not be unspecified. 

FILES control record information is stored in 
sectors 4 and 5 of the SCRA. 



SUPERVISOR CONTROL RECORD AREA (SCRA) 

Sectors and 1 of the SCRA are occupied by the 
LOCAL information for the core load or execution 
currently in progress (see diagram, below). The 
first word of sector contains the word count of the 
information stored in the two LOCAL sectors. 

Sectors 2 and 3 of the SCRA are occupied by the 
NOCAL information for the core load or execution 
currently in progress (see diagram, below). The 
first word of sector 2 contains the word count of 
the information stored in the two NOCAL sectors. 

Sectors 4 and 5 of the SCRA are occupied by the 
FILES information for the core load or execution 
currently in progress (see diagram, below). The 
first word of sector 4 contains the word count of the 
information stored in the two FILES sectors. 

Sectors 6 and 7 of the SCRA are not used. 

The format of information in the LOCAL/NOCAL 
sectors is as follows: 



Word Count, one word specifying the number of words in 
the two LOCAL/NOCAL sectors occupied 
by LOCAL/NOCAL information, including 
the word count 
Mainline name, two words in name code format (blanks 
if no mainline name is specified) 
Subroutine Name, two words in name code for- 
mat specifying a LOCAL/ 
NOCAL subroutine assoc- 
iated with the preceding 
mainline 
Subroutine Name 

Subroutine Name Mainline 

I Name 



r^., 



Sector 1 



Mainline and Subroutine Names 



Vr 



Subroutine Name 

Mainline Name 

Subroutine Name 

Subroutine Name 



Not Used 



Sector2 l i I i I i I i 1 



is- 



The format of information in the FILES sectors 
is as follows: 



Word Count, one word specifying the number of words in the two 

FILES sectors occupied by FILES information, including the 
word count . 
File Number, one word specifying in binary the number 
assigned to the file in a FORTRAN DEFINE! FILE 
statement and by which the file is referenced 
File Name, two words in name code format specifying the 
name of the file as it appears in LET/FLET (zeros 
if no file name is specified) . 
Cartridge ID, one word specifying in binary the ID 
of the cartridge containing the preceding 
named file (zero if no cartridge ID is 
specified) . 
File Number 
File Name 

Cartridge ID 



File Number 




File Numbers gnd Names 
and Cartridge IDs 



--»<-*-> 



File Name 



.Cartridge ID 



Not Used 



sr^v- 



Sector I 
2 I 



-sv- 
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SYSTEM CORE DUMP PROGRAM 

If an entry was made to the Skeleton Supervisor at 
the $DUMP' entry point, the Skeleton Supervisor saves 
the contents of location $CIBA+1 through 4095 on the 
CIB, then fetches and transfers control to the Core 
Image Loader. If $DMPF (the dump format indica- 
tor) is zero or positive, the Core Image Loader 
fetches into core storage and transfers control to 
the System Core Dump program. 

The Dump program requires the principal print 
device subroutine. This subroutine is fetched into 
core storage by the Dump program itself utilizing 
SLET information provided by the System Loader. 

If dump limits are specified, three checks are 
made: 

1. If both limits are zero, the lower limit is left 
zero and the upper limit is set to core size. 

2. If a limit is larger than core size, the limit is 
subtracted from the core size and the difference 
is used as the limit. 

3. If the lower limit is greater than the upper limit, 
a wrap-around dump is given. That is, core 
storage between the lower limit and the end of 
core storage is dumped, then core storage 
between location and the upper limit is dumped. 

The lower dump limit is checked to determine 
which, if any, sections of the CIB must be read into 
the dump buffer. If any or all of the contents of the 
CIB are to be dumped, the CIB is read into core 
storage in sections; sectors 0-3 constituting section 
1, sectors 4-7 constituting section 2, and sectors 
8-12 constituting section 3. Since the first six words 
of core storage were not stored to the CIB, the 
contents of the dump buffer are off-set by six words. 
These six words are filled in from words 0-5 in the 
case of section 1 and are saved from the end of the 
previous section in the cases of sections 2 and 3. 
Locations greater than 4095 were not stored to the 
CIB and are dumped from their original locations. 

If the $DUMP entry point contains no return 
address (i.e. , is zero), the Dump program calls the 
Monitor Control Record Analyzer via the $EXIT 
entry point in the Skeleton Supervisor. 

If the $DUMP entry point contains a return address 
(i.e. , is non-zero), the Dump program restores the 
contents of core storage in three stages. First, the 
locations between $CIBA+1 and the beginning of the 
disk I/O subroutine are restored from the CIB. 



Second, the locations between the beginning of the 
disk I/O subroutine and the beginning of the principal 
print device subroutine are restored. Third, the 
locations between the beginning of the principal print 
device subroutine and location 4095 are restored 
from the CIB using the disk read subroutine in 
COMMA. Control is then returned to the restored 
core load at the location following the dump param- 
eters. 



AUXILIARY SUPERVISOR 

If an entry was made to the Skeleton Supervisor at 
the $DUMP entry point and $DMPF (the dump format 
indicator) is negative, the Core Image Loader fetches 
into core storage and transfers control to the 
Auxiliary Supervisor. 

The Auxiliary Supervisor has three functions: 

1. It stores dummy monitor control records to the 
Supervisor buffer for processing by the Monitor 
Control Record Analyzer. 

2. It prints error messages for errors detected by 
the Core Image Loader. 

3. It aborts a JOB. 

The Cold Start Program calls the Auxiliary 
Supervisor with a parameter of minus one (-1). This 
parameter causes the Auxiliary Supervisor to place 
a dummy JOB monitor control record in the Super- 
visor buffer, convert from binary to EBCDIC the 
cartridge ID of the cartridge from which the cold 
start was made and store it in the Supervisor 
Buffer, set $CTSW non-zero, and call the Monitor 
Control Record Analyzer via the $EXIT entry point 
in the Skeleton Supervisor. 

The ILS04 subroutine calls the Auxiliary Super- 
visor with a parameter of minus two (-2) if an 
interrupt occurs from the Keyboard INTERRUPT 
REQUEST key and the user has not provided a servic- 
ing subroutine for that interrupt. This parameter 
causes the Auxiliary Supervisor to set $IOCT, $IBSY 
and $PBSY in COMMA to zero, set $FLSH in 
COMMA non-zero, and call the Monitor Control 
Record Analyzer via the $EXIT entry point in the 
Skeleton Supervisor. 

The Core Image Loader calls the Auxiliary 
Supervisor with a parameter of minus three (-3) or 
minus four (-4). If a program name cannot be 
found in LET/FLET, the parameter used is minus 
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three. If a name specified as the program or core 
load for execution is found to be a data file in LET/ 
FLET, the parameter used is minus four. In either 
case, the Auxiliary Supervisor prints an error 
message, sets $NXEQ in COMMA non-zero, and 
calls the Monitor Control Record Analyzer via the 
$EXIT entry point in the Skeleton Supervisor. 

The System Loader calls the Auxiliary Supervisor 
with a parameter of minus five (-5). This parameter 
causes the Auxiliary Supervisor to place a dummy 
DUP monitor control record in the Supervisor buffer 
and call the Monitor Control Record Analyzer via 
the $EXIT entry point in the Skeleton Supervisor. 

A negative parameter other than minus 1 through 
minus 5 causes the Auxiliary Supervisor to print an 
appropriate error message and call the Monitor 
Control Record Analyzer via the $EXIT entry point 
in the Skeleton Supervisor. 



CORE LAYOUT 

Figure 3, panel 1 shows the layout of the contents 
of core storage at the time the Skeleton Supervisor 
is entered at the $LINK, $EXIT, or $DUMP entry 
point. 

Figure 3, panel 2 shows the layout of the contents 
of core storage after phase 1 of the Core Image 
Loader has been fetched into core storage by the 
Skeleton Supervisor. If the Skeleton Supervisor was 
entered at the $DUMP entry point, the contents of 
locations $CIBA+1 through 4095 are saved on the 
CIB prior to the fetching of the Core Image Loader . 

Figure 3 , panel 3 shows the layout of the con- 
tents of core storage after phase 1 of the Core Image 
Loader, using whichever disk I/O subroutine is in 
the Resident Monitor, has fetched phase 2 of the Core 
Image Loader into core storage. 



Figure 3, panel 4 shows the layout of the con- 
tents of core storage after the Core Image Loader, 
as the result of an entry to the Skeleton Supervisor 
at the $EXIT entry point, has fetched the DISKZ disk 
I/O subroutine into the Resident Monitor for use by 
the Monitor Control Record Analyzer and has fetched 
into core storage and transferred control to the 
Monitor Control Record Analyzer. The principal 
print device and principal input device subroutines 
have been fetched into core storage by the Monitor 
Control Record Analyzer. The areas for disk I/O 
and control record buffers have been allocated by 
the Monitor Control Record Analyzer. If a monitor 
control record had been detected by a monitor 
system program other than the Monitor Control 
Record Analyzer, the record would have been passed 
to the Monitor Control Record Analyzer in that area 
to be allocated by the Monitor Control Record 
Analyzer as the Supervisor buffer. 

Figure 3, panel 5 shows the layout of the con- 
tents of core storage after the Monitor Control 
Record Analyzer has fetched the XEQ Control Record 
Processor into core storage,, 

Figure 3 , panel 6 shows the layout of the con- 
tents of core storage after the Core Image Loader, 
as the result of an entry to the Skeleton Supervisor 
at the $DUMP entry point with a non-negative param- 
eter, has fetched into core storage and transferred 
control to the System Core Dump program. The 
Dump program, using whichever disk I/O subroutine 
is in the Resident Monitor, has fetched the principal 
print device subroutine into core storage. The 
areas for disk I/O and print buffers have been 
allocated by the Dump program. 

Figure 3, panel 7 shows the layout of the con- 
tents of core storage after the Core Image Loader, 
as the result of an entry to the Skeleton Supervisor 
at the $DUMP entry point with a negative param- 
eter, has fetched the DISKZ disk I/O subroutine 
into core storage and has fetched and transferred 
control to the Auxiliary Supervisor. The Auxiliary 
Supervisor has fetched the principal print device 
subroutine into core storage. 
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Figure 3. Core Layout During Supervisor Operation 
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SECTION 7. CORE IMAGE LOADER 



FLOWCHARTS 
Phase 1: CIL01 
Phase 2: CIL02 

PHASE 1 

Phase 1 of the Core Image Loader handles the three 
entries to the Skeleton Supervisor - LINK, DUMP, 
and EXIT,, The Core Image Loader is assigned this 
task in order to minimize transfer time (via CALL 
LINK) from one link to another,, 

Phase 1 of the Core Image Loader is naturally 
relocatable. It is read into core storage by the 
Skeleton Supervisor immediately following whichever 
disk I/O subroutine is currently in the Resident 
Monitor. (This can be done by the Skeleton Super- 
visor with minimal core requirement because the 
word count and sector address of this phase per- 
manently reside at the end of each disk I/O sub- 
routine. ) 

If the Skeleton Supervisor was entered at the 
$DUMP entry point ($RMSW is positive), phase 1 
tests $DMPF, the dump format code indicator. 
If $DMPF is negative, phase 1 fetches and transfers 
control to the Auxiliary Supervisor. If $DMPF is 
not negative, phase 1 fetches and transfers control 
to the System Core Dump program. 

If the Skeleton Supervisor was entered at the 
$EXIT entry point ($RMSW is negative) , phase 1 
tests $DZ1N to determine whether DISKZ is in the 
Resident Monitor. If DISKZ is in the Resident 
Monitor, phase 1 fetches and transfers control to 
the Monitor Control Record Analyzer. If DISKZ is 
not in the Resident Monitor, phase 1 fetches phase 2 
of the Core Image Loader. Using phase 2 as a sub- 
routine, phase 1 overlays DISK1 or DISKN with 
DISKZ. Phase 1 then fetches and transfers control 
to the Monitor Control Record Analyzer,, 

If the Skeleton Supervisor was entered at the 
$LINK entry point ($RMSW is zero), phase 1 tests 
$COMN in COMMA to determine if COMMON was 
defined by the core load just terminated. If $COMN 
is non-zero, phase 1 saves Low COMMON on the 
CIB. (Low COMMON is the lowest 320 words that 
could have been defined as COMMON by the core 
load just terminated. ) Depending on the disk I/O 
subroutine currently in the Resident Monitor, Low 
COMMON is defined as follows: 



Disk I/O Subroutine 

DISKZ 
DISK1 
DISKN 



Low COMMON 
Decimal Hexadecimal 

896 - 1215 /0380 - /04BF 
1216 - 1535 /04C0 - /05FF 
1536 - 1855 /0600 - /073F 



The area occupied by Low COMMON is used by 
phase 1 as a disk I/O buffer during the LET/FLET 
search and/or as the area into which phase 2 is 
fetched when phase 2 is to be used to fetch DISKZ „ 

Once Low COMMON has been saved, or if no 
COMMON was defined by the core load just ter- 
minated, phase 1 searches LET/FLET for the name 
of the program or core load to be executed next. 
The name of the link has been saved in $LKNM by the 
Skeleton Supervisor. 

If the link is in disk system format (DSF), phase 
1 saves any COMMON defined below 4096 on the 
CIB. It then fetches phase 2, uses phase 2 as a 
subroutine to overlay DISK1 or DISKN with DISKZ, 
fetches phase 0/1 of the Core Load Builder, and 
transfers control to phase 1 of the Core Load 
Builder. 

If the link is in disk core image format (DCI), 
phase 1 fetches and transfers control to phase 2 to 
fetch the link and the required disk I/O subroutine, 
if necessary, and to transfer control to that link. 

Special Techniques. Phase 1 of the Core Image 
Loader places a disk call subroutine in COMMA at 
$HASH+8 through $HASH+19. Using this disk call 
subroutine, phase 1 is able to overlay itself when 
fetching phase 2, the Monitor Control Record 
Analyzer, etc. 



PHASE 2 

Phase 2 of the Core Image Loader is naturally 
relocatable. It is read into core storage (by phase 
1) immediately following the end of phase 1 if it is 
to be used by phase 1 to fetch DISKZ , or (by either 
phase 1 or the Core Load Builder) following the end 
of the disk I/O subroutine currently in the Resident 
Monitor if it is to fetch and transfer control to a 
core load. Phase 2 provides two functions: (1) 
to overlay the disk I/O subroutine currently in the 
Resident Monitor with the requested disk I/O sub- 
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routine and (2) to fetch a core loado It may be used 
for either or both of these functions on any single 
entry. 

If called to fetch and transfer control to a core 
load, phase 2 first fetches and processes the core 
image header and then the disk I/O subroutine 
required by the core load to be fetched if it is not 
currently present in the Resident Monitor. The last 
thing it does is to fetch and transfer control to the 
core load itself. 

Special Techniques. Upon entry, phase 2 requires 
the disk call subroutine placed at $HASH+8 through 
$HASH+19 by phase 1. Using this disk call sub- 
routine, phase 2 is able to overlay itself when fetch- 
ing a core load. Included in this subroutine, at 
$HASH+13 through $HASH+19, is the coding that 
moves the transfer vector from its position at the 
end of the core load (as it exists on disk) to the end 
of COMMON in core storage. Once the transfer 
vector has been moved, control passes to the core 
load being fetched. 



CO RE LAYOUT 

Figure 4 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
at $EXIT when DISKZ is present in the Resident 
Monitor, In panel 1, phase 1 of the Core Image 
Loader has been fetched by the Skeleton Supervisor. 
In panel 2, the Monitor Control Record Analyzer has 
been fetched by phase 1„ 

Figure 5 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
at $EXIT when DISKZ is not present in the Resident 
Monitor. In panel 1, phase 1 of the Core Image 
Loader has been fetched by the Skeleton Supervisor. 
In panel 2, phase 2 of the Core Image Loader has 
been fetched by phase 1. In panel 3, DISKZ has been 
fetched by phase 2. In panel 4, the Monitor Control 
Record Analyzer has been fetched by phase 1. 

Figure 6 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
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Figure 4. Core Layout on Supervisor Entry at $EXIT (D![SKZ in Core) 



at $DUMP. In panel 1, locations $CIBA+1 through 
4095 have been saved on the CIB and phase 1 of the 
Core Image Loader has been fetched by the Skeleton 
Supervisor. In panel 2, the System Core Dump 
program has been fetched by phase 1 as the result 
of a non-negative parameter following the branch to 
$DUMP. In panel 3, the Auxiliary Supervisor has 
been fetched by phase 1 as the result of a negative 
parameter following the branch to $DUMP 
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Figure 5. Core Layout on Supervisor Entry at $EXIT (DISKZ Not in 
Core) 



Figure 6. Core Layout on Supervisor Entry at $DUMP 



Figure 7 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
at $LINK when the program being linked to is in disk 
system format (DSF). In this case DISK1 or DISKN 
is currently present in the Resident Monitor. In 
panel 1, phase 1 of the Core Image Loader has been 
fetched by the Skeleton Supervisor, Low COMMON 
has been saved by phase 1, and the LET/FLET 
search buffer has been allocated. In panel 2, 
COMMON defined by the previous core load below 
location 4096 (if any) has been saved on the CIB by 
phase 1. In panel 3, phase 2 of the Core Image 



Loader has been fetched by phase 1; DISKZ has been 
fetched by phase 2. If DISKZ is currently present in 
the Resident Monitor, phase 2 is not called as shown 
in panel 3. In panel 4, phase 0/1 of the Core Load 
Builder has been fetched by phase 1 of the Core 
Image Loader. 

Figure 8 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
at $LINK when the program being linked to is in disk 
core image format (DCI). In this case DISKZ is 
currently present in the Resident Monitor. In panel 
1, phase 1 of the Core Image Loader has been 
fetched by the Skeleton Supervisor, Low COMMON 
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has been saved by phase 1, and the LET/FLET 
search buffer has been allocated. In panel 2, phase 
2 of the Core Image Loader has been fetched by 
phase 1; the core image header buffer has been 
allocated by phase 2, In panel 3, the disk I/O sub- 
routine required by the program being linked to has 
been fetched into the Resident Monitor. In panel 4, 
the program being linked to has been fetched by 
phase 2. In panel 5, COMMON defined by the 
previous core load below location 4096, previously 
saved on the CIB by phase 1 of the Core Image 
Loader, as well as the program being linked to, has 
been fetched by phase 2. In panel 6, the portion of 
the program being linked to that is contained in the 
CIB (the portion below location 4096, placed in the 
CIB by the Core Load Builder) has been fetched by 
phase 2. 



DEBUGGING/ANALYSIS AIDS 

To facilitate the finding of errors in and associated 
with the Core Image Loader, NOP instructions have 
been placed at critical locations in the Core Image 
Loader; they are: CM000+1, CM118-5, CM180, 
LD000+1, GETCL, and LD100+8. These NOPs can 
be replaced by WAIT instructions so that core dumps 
can be taken at various stages during Core Image 
Loader execution. An analysis of the core dump(s) 
may provide enough information to locate the problem. 

Bear in mind that the Core Image Loader is 
naturally relocatable. Thus, all modifications 
made to it must be executable irrespective of core 
location. 



Figure 7. Core Layout on Supervisor at $LINK (Link in Disk System 
Format) 
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SECTION 8. CORE LOAD BUILDER 



FLOWCHARTS 
Phase 1 (IN): CLB01 
Phase 2 (MC): CLB02 



The Core Load Builder builds a specified mainline 
program into an executable core load. The main- 
line program, with its required subroutines (LOCALS 
and SOCALs included), is converted from disk 
system format (DSF) to a format suitable for execu- 
tion. During the conversion, the Core Load Builder 
also builds the core image header record and the 
transfer vector. The resulting core load is suitable 
for immediate execution or for storing on the disk in 
disk core image format (DCI) for future execution. 



GENERAL COMMENTS 



Each phase of the Core Load Builder has been 
broken up into a series of relatively small, self- 
contained subroutines. After initialization (phase 1) 
control remains in the Master Control subroutine, 
which is a part of phase 2. (The labels in this sub- 
routine all start with "MC". ) In other words, the 
basic control logic is found in the Master Control 
subroutine. 

The labels assigned to constants and work areas 
within subroutines are in the range 900-999. When- 
ever noted, even-numbered labels are on even 
boundaries, and odd -numbered labels are on odd 
boundaries. Constants and work areas in RCOM 
(phase 0) are mnemonic and are arranged in four 
groups, each ordered alphabetically. Double -word 
cells are in one group, indexed cells are in a second; 
constants are in a third; and switches and work areas 
are in a fourth. The labels of switches are of the 
form "LSWx", where "x" is a number. The labels 
of constants are of the form "Kx", where "x" is 
either the number, in decimal, defined in the con- 
stant or the four hexadecimal digits defined in the 
constant. 

Patch areas are usually found at the end of a phase. 
Each one is defined by a BSS followed by a DC. 



OVERLAY SCHEME AND CORE LAYOUT 

The overlays (phases) of the Core Load Builder have 
been organized to allow maximum core storage for 
the Load Table while minimizing the flip-flopping of 
phases. "Minimizing" here means that, during a 
one-pass building process (no LOCALS or SOCALs), 
the phases are executed serially from 1 through 6 
(excluding 5). During a two-pass building process 
(LOCALs and/or SOCALs required), there is some 
flip-flopping of phases 3 and 5. 

Phase is never overlaid. It contains the sub- 
routines that must never be overlaid, as well as 
work areas and constants required by more than one 
subroutine. 

Phase 1 is fetched along with phase 0. The only 
difference is that phase 2 overlays phase 1 but not, 
of course, phase 0. Phases 3, 4, 5, 6, and 12 over- 
lay the last part of phase 2. 

Phases 7-10 contain messages. They all require 
that the principal print subroutine be in the data 
buffer; these phases themselves are executed from 
the LET/FLET search buffer. 

Phase 11 prints the file map and phase 12 the core 
map . Both of these phases require that the principal 
print device subroutine be in the LET/FLET search 
buffer. Phase 11 is executed from the data buffer. 

Figure 9, panel 1 shows the layout of the contents 
of core storage after phases and 1 of the Core Load 
Builder have been fetched into core storage by phase 
1 of the Core Image Loader or the STORE function 
of DUP. 

Figure 9, panel 2 shows the layout of the contents 
of core storage after phase 1 has fetched phase 2, 
overlaying itself. Phase 2 has allocated the areas for 
the Load Table and the disk I/O buffers. 

Figure 9, panel 3 shows the layout of the contents 
of core storage after any one of the overlay phases 
has been fetched by phase 2. 

Phase 1 includes the subroutines called by the in- 
itialization subroutine. In this way, phase 2 can over- 
lay phase 1 completely. Phase 2 includes the sub- 
routines called by the relocation subroutine, RL. The 
order of the subroutines in this phase is important. 
Those that are required only during the relocation of 
the mainline (MV, ML, CK, DC, DF, and FM) come 
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Figure 9. Core Layout During Core Load Builder Operation 



last so that they may be overlaid by phase 3. Phase 3 
includes the subroutines required to choose a sub- 
routine (as opposed to a mainline) from the Load 
Table and relocate it. Phases 4 and 6 round out the 
one-pass core load building process. Phase 4 
determines whether or not SOCALs are required, 
and, if so, whether or not they can be employed to 
make the core load fit into core storage. It also 
processes ILSs. Phase 6 performs the miscellaneous 
jobs, such as creating the transfer vector, that can 
be done only at the end of the process of building a 
core load. Phase 5 is executed only during pass 2 
in a two-pass building process. It organizes the 
LOCALs and SOCALs for relocation, including their 
special linkages. 



DISK BUFFERS 

There are three buffers used by the Core Load 
Builder. Each is 320 words long, not counting the 
word count and sector address, and each has a 
primary use, although it may be used temporarily 
for something else. For example, the LET search 
buffer is used primarily to hold a sector of LET/ 
FLET when searching that table. However, it con- 
tains one of the message phases (phases 7-10) 
whenever a message is printed. 

The data buffer is a buffer for the User Area. 
The program currently being incorporated into the 
core load is read into this buffer, one sector at a 
time. For example, after a sector of the mainline 
is read into this buffer from the User Area, or 
Working Storage, the relocation of the mainline can 
begin. When this sector of the mainline has been 
relocated, another sector (if any) is fetched, and 
so on until the entire mainline is relocated. 

The main use of the CIB buffer is to contain the 
CIB, one sector at a time. For example, if a core 
load is to occupy locations 1000 - 1639, then the first 
sector of the CIB contains the part of the core load 
that is to occupy 1000 - 1319 and the second sector 
1320-1639. As the core load is built, the Location 
Assignment Counter (LAC) reflects the ultimate core 
address of the data word currently being relocated. 
In this example, the LAC would start at 1000, thus 
causing sector 1 of the CIB to be read into the CIB 
buffer. This first word of the core load would be 
placed in the first word of the CIB buffer and the 
LAC advanced by 1. Assuming no data breaks, the 
LAC will eventually be incremented to 1320. Then 
the contents of the CIB buffer will be written out 
on sector 1 of the CIB, and sector 2 will replace 
sector 1 in the CIB buffer. In short, each word of 
a core load is always transferred to the CIB via the 
CIB buffer. 

The data and CIB buffers are combined into a 
single 640-word buffer for the purpose of fetching 
the LOCAL, NOCAL, and FILES information from 
the SCRA. 



CORE IMAGE BUFFER (CIB) 

The Core Image Buffer is used by the Core Load 
Builder, the Core Image Loader, and the Skeleton 
Supervisor. The Core Load Builder uses it to store 
any part of the core load that is to reside (when the 
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core load is executed) below location 4096. The 
first word of the mainline is stored in the first word 
of the CIB, and subsequent words follow similarly. 
Thus, the mainline must be relocated first, and a 
subsequent ORG that would set the Location Assign- 
ment Counter below its first value is not allowed„ 



LOAD TABLE 



The values stored in word four at various times 
are: (1) the class code (for anon-LOCAL), (2) the 
address of the Flipper Table entry, (2) /0008 for 
every subroutine called by a LOCAL, (4) the word 
count of a LOCAL, (5) the address of the Load Table 
entry for the specified entry point for the LOCAL 
currently being relocated, and (6) the address of the 
LIBF TV that corresponds to the entry in the Load 
Table. 



The Load Table is used by the Core Load Builder 
primarily to tell what subprograms to include in the 
core load as well as at what time during the process 
of core load building to include a given subprogram. 
Other uses of the table are discussed below. It 
exists only during the building of a core load. 

There is an entry in the Load Table for (1) every 
LOCAL/NOCAL entry point specified for a given 
mainline and (2) for each subprogram entry point 
referenced in a core load, via CALL or LIBF. For 
example, even though subprogram A is called five 
times, there is only one entry in the Load Table for 
A. On the other hand, if A and B are different 
entry points to the same subprogram and both are 
referenced, then there will be an entry for A and 
another for B. 

Each of the Load Table entries is four words in 
length. The first entry occupies locations 4086 - 
4089, the second 4082 - 4085, etc. The first two 
words of each entry contain the name (in name code) 
of the subprogram that caused the entry to be made. 
Bit zero of the first word is set if the entry is that of 
a LOCAL, bit one is set if the entry is that of a 
CALL. Mainlines and interrupt level subroutines 
never appear in the Load Table. 

Words three and four of each entry are zero when 
the entry is first made. As the relocation of a given 
subprogram begins, word three is set with the entry 
point, i.e„, the absolute, address. In this way, the 
Core Load Builder can tell by looking at its Load 
Table entry whether or not a subprogram has been 
relocated and where it has been relocated to. 

Word four is put to several uses, most of which 
involve LOCAL processing. The use of this word at 
a given time is dependent upon the pass (1 or 2) and/ 
or whether the subprogram associated with the Load 
Table entry is a LOCAL that was specified in the 
LOCAL information in the SCRA. For example, 
A and B are entry points to the same subprogram, 
and A (but not B) appears in the LOCAL information 
in the SCRA. Both A and B can be called in the core 
load; in such a case A is said to be specified and B 
unspecified. 



LOCAL, NOCAL, AND FILES INFORMATION 

LOCAL, NOCAL, and FILES information is obtained 
from the Supervisor Control Record Area (SCRA). 
This information is supplied by the Supervisor Con- 
trol Record Analyzer (see Section 6: Supervisor) or 
the STORE CI function of DUP (see Section 9: Disk 
Utility Program ). For the format of LOCAL, 
NOCAL, and FILES information in the SCRA, see 
Section 6: Supervisor or S ection 9. Disk Utility 
Program. 

ISS TABLE 

The ISS Table is used by the Core Load Builder as it 
constructs Interrupt Branch Tables for ILSs. When 
the address to which an ISS is to be relocated be- 
comes available, that address is stored in the 
appropriate entry in the ISS Table. For example, if 
an ISS for the 1132 Printer (ISS number 6) is being 
relocated to location /1000, then /1000 is stored in 
the fourth word of the ISS. This address will later 
be used during the construction of the Interrupt 
Branch Table (IBT) for ILS01. 



INTERRUPT BRANCH TABLE (IBT) 

Each ILS in the System Library that is filled in by 
the Core Load Builder (ILS00, ILS01, and ILS03) 
begins with an Interrupt Branch Table (IBT). ILS02 
and ILS04, which are a part of the Resident Monitor, 
require special treatment to construct their IBTs. 
A given IBT consists of the addresses of the 
interrupt service entry points for the devices on the 
corresponding interrupt level. Thus, if there are 
two devices on a level, there are two entries in the 
IBT; and each entry consists of one word, that word 
being the address of the interrupt service entry point 
to the ISS for the device represented by the IBT entry. 

For user-written core loads (as opposed to 
monitor system programs), the IBT for ILS04 is 
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constructed by the Core Load Builder and stored in 
the core image header record. When the Core 
Image Loader fetches a core load (including the core 
image header), the address of the IBT for level 4 
is stored in location $IBT4, from which it is accessed 
by ILS04. The IBT for ILS02 is a single word, 
$IBT2, which contains the address of DZ000+4, 
regardless of the disk I/O subroutine present in the 
Resident Monitor. This address is stored in $IBT2 
by the Core Image Loader as it fetches the requested 
disk I/O subroutine. The IBTs for the remaining 
ILSs are constructed and stored in the ILSs them- 
selves by the Core Load Builder. 

After all subprograms have been relocated, the 
Core Load Builder constructs the IBTs. The IBTs 
for all ILSs except ILS02 are constructed as des- 
cribed below. Bear in mind that these ILSs are 
written with special constants stored in each IBT 
entry. These constants, which will be overlaid by 
the Core Load Builder, are as follows: The first 
eight bits of each constant represent the increment 
to be added to the loading address of the correspond- 
ing ISS to get the address of the interrupt service 
entry point; for IBM-supplied ISSs, this value is 
four, except for the "operation complete" entry point 
for the 1442 subroutines, for which the value is 
seven. The second eight bits are @ISTV plus the 
ISS number; thus, each IBM entry has an identifier 
to relate it to a specific ISS. 

The Core Load Builder fetches one word at a time 
from the IBT, i. e. , one of the special constants 
occupying the IBT locations in the ILS. The second 
eight bits of the word fetched are used to compute 
the address of the ISS Table entry for the ISS 
number indicated. If the ISS Table entry is non-zero, 
it contains the loading address of the ISS itself, 
which is then incremented by the value stored in the 
first eight bits of the word fetched. The resulting 
address, which is the address of the interrupt 
service entry point, replaces the special constant 
that supplied the two eight-bit values. If the ISS 
Table entry is zero, the special constant is replaced 
with the address of $STOP, the PROGRAM STOP 
key trap in the Skeleton Supervisor. This process 
of replacing special constants continues until a zero 
is fetched from the IBT, indicating that the entire 
IBT has been processed. Except for ILS04, this 
zero is the entry point to the ILS itself. 



INCORPORATING PROGRAMS INTO THE CORE 
LOAD 



PASS 1 

The mainline is relocated first. Any calls found 
during this relocation are put in the Load Table. 
After the mainline has been converted, each sub- 
program represented in the Load Table is re- 
located, generally in the order found in the table 
itself. An entry is flagged as having been relocated 
by storing the address of the entry point in the third 
word of the entry. Before an entry is relocated, 
the names of all the entry points to the entry being 
considered for relocation are compared with the 
name of each entry preceding it in the Load Table. 
A match indicates that the current entry is simply 
another entry point to a previously relocated sub- 
program. Thus, the current entry is not relocated; 
instead, the absolute address of the entry point is 
determined and stored in the third word of the entry 
to signify that it has already been relocated. 

Furthermore, the names of all the entry points 
to the entry being considered for relocation are com- 
pared with the name in each entry in the Load Table 
following it. If a match occurs, the third words of 
both entries are filled in with the absolute address 
of the entry point. Thus, the Load Table is scanned 
forward and backward for other entry points to the 
subprogram currently being considered for re- 
location. 



PASS 2 

The Load Table is scanned during pass 2 in the same 
way as during pass 1. The only difference is that 
subprograms are relocated in a certain order during 
pass 2, thus necessitating multiple passes through 
the Load Table; in fact, one pass is required for each 
class of subprograms. Thus, all the in-cores (class 
0) are relocated first, followed by LOCALs,, sub- 
programs in SOCAL 1 (class 1), subroutines in 
SOCAL 2 (class 2), and subroutines in SOCAL 3 
(class 3), in that order. 
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LOCALS AND SOCALs 

If during the first pass the Core Load Builder 
(phase 4) determines that an Assembler core load 
will not fit into core storage even with any LOCALS 
that have been specified, the core load building 
process is terminated. However, for a FORTRAN 
core load special overlays (SOCALs) of parts of the 
core load will be created during a second pass if 
this will make the core load fit. The decision of 
whether to proceed with a second pass is made after 
phase 4 accounts for the sizes of the LOCAL area, 
if any, the flipper and its table, and each of the 
SOCALs. If the check shows that SOCAL option 1 
(SOCAL 1 and SOCAL 2) will be insufficient, then 
a further check is made for option 2 (all three 
SOCALs). If option 2 is still insufficient, process- 
ing is terminated; otherwise, a second pass is made. 

During pass 2, the entire core load is built 
again, but, unlike during pass 1, subprograms are 
relocated in a special order. First, the mainline 
and the in-core (class 0) subprograms are relocated, 
followed by: the flipper; the LOCALS, if any; the 
arithmetic and function (class 1) subprograms; the 
non-disk FIO (class 2) subroutines; and, if 
necessary, the disk FIO (class 3) subroutines. 

The same procedure described above is necessary 
if LOCALS are employed without SOCALs. In other 
words, LOCALs, as well as SOCALs, require two 
passes. 



INTERRUPT LEVEL SUBROUTINES (ILSs) 

After all other subprograms have been relocated, 
the Interrupt Transfer Vector (ITV) is scanned. 
Except for the entries for interrupt levels 2 and 4, 
a non-zero entry causes the corresponding ILS to be 
incorporated into the core load. (ILS02 and ILS04, 
unless supplied by the user, are a part of the 
Resident Monitor.) See Interrupt Branch Table, 
above, for a description of the processing of that 
part of an ILS. 



TRANSFER VECTOR (TV) 

The transfer vector consists of two parts: the 
LIBF TV and the CALL TV. The former provides 
the linkage to LIBF subprograms, the latter to 
CALL subprograms. The LIBF TV was created to 



enable the LIBF statement to require only one 
storage location during execution. This is desirable 
because 1130 FORTRAN object code contains a very 
high percentage of calls to subprograms. Long 
branches to those subprograms would greatly in- 
crease core requirements for core loads over a 
method that employs short branches. By replacing 
the LIBF statement with a short BSI, tag 3, to a 
transfer vector entry, which could then supply the 
long branch to the desired subprogram, this problem 
is solved. The cost, of course, is that XR3 is taken 
away from the user and the transfer vector is limited 
to 255 words. This means the LIBF TV has a 
maximum of 85 3 -word entries, two of which become 
the floating accumulator (FAC) and an indicator for 
certain arithmetic subroutines. Thus, the user is 
limited to LIBFs to not more than 83 separate sub- 
program entry points per core load. 

There is no theoretical limit on the number of 
CALL entry points per core load, for the CALL 
statement is replaced by an indirect BSI to the 
desired subprograms. However, the number of 
CALL and LIBF references combined must not 
exceed the capacity of the Load Table, which is 
approximately 150 entries. 

The CALL TV entry is one word only, the address 
of the subprogram entry point. This makes it pos- 
sible to replace a CALL statement with an indirect 
BSI to the corresponding CALL TV entry, even though 
the address of the subprogram itself may not be 
known at the time the CALL is processed. 

When stored on disk in disk core image format 
(DCI), the LIBF TV follows the last word of the last 
subprogram in the core load. It may leave one word 
vacant in order to make the floating accumulator 
(FAC) begin on an odd boundary. The CALL TV 
immediately follows the indicator entry in the LIBF 
TV. During execution the TV extends downward in 
core storage from the lowest-addressed word in 
COMMON. 

Whereas the CALL TV entry consists of only one 
word (the address of the subprogram), the LIBF TV 
entry consists of three words. The first is a link 
word (initially zero), and the second and third are a 
long BSC to the subprogram entry point. 

Figure 10 shows the layout of the transfer vector 
in core storage. 

Linkage to LOCALs 

The LOCAL/SOCAL flipper (FLIPR) is included in a 
core load if that core load requires LOCALs and/or 
SOCALs. The flipper transfers control to a LOCAL, 
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fetching it first, if necessary. It does likewise for 
a SOCAL, except that it is never entered if a sub- 
program is called that is a part of the SOCAL current- 
ly in the SOCAL area (see Linkage to the System 
Overlay s). 

The Flipper Table immediately precedes the 
flipper. It consists of a 6 -word entry for each entry 
point specified in the LOCAL information in the SCR A 
(for a given mainline) that is referenced by a CALL 
and a 5 -word entry for each entry point referenced by 
a LIBF,, If a subprogram has more than one entry 
point but only one is specified in the LOCAL informa- 
tion (a specified LOCAL), there is a Flipper Table 
entry for each entry point referenced in the core 
load. 

The format of a 5-word (LIBF) entry in the 
Flipper Table is as follows: 



Word 

1-2 
3 
4 
5 



Description 

BSI L FL000 

Word count of the subprogram 
Sector address of the subprogram 
Entry point address in the sub- 
program 



The format of a 6-word (CALL) entry in the 
Flipper Table is as follows: 



Word 

1 

2-3 

4 
5 
6 



Description 

Link word 
BSI L FL010 

Word count of the subprogram 
Sector address of the subprogram 
Entry point address in the sub- 
program 



Linkage to the System Overlays (SOCALs) 

In order to assure very fast transfer to a subprogram 
that is a part of a SOCAL that is in core storage at 
a given time, special transfer vector entries are 
made for SOCAL subprograms. They are different 
from the standard LIBF and CALL linkages, and they 
are different from the linkage to a LOCAL, The 
SOCAL transfer time is approximately 20 micro- 
seconds, compared to 150-180 microseconds to a 
LOCAL. (Both timings assume a 3. 6 microsecond 
storage cycle. ) 

Figure 11 shows an entry in the LIBF TV for an 
in-core subprogram (entry 2) and the special linkage 
in the LIBF TV for SOCAL subprograms (entries 
3-8). Entry 1 is the LIBF TV entry for a SOCAL 
subprogram. The "disp" is a displacement to the 
second word of the linkage for the SOCAL in which 
the subprogram is found. 

The example represented in Figure 11 is one that 
requires SOCAL option 2; TV entries 5 and 8 would 
not appear if option 1 were used. Entry 1 is the 
last entry in the LIBF TV, i.e. , the highesst- 
addressed word of the transfer vector. Suppose that 
(1) a LIBF to FADD were made and (2) SOCAL 1 were 
not in core. The LIBF would be a BSI to the first 
word of entry 1, which would then BSI to the second 
word of entry 3. Entry 3 would MDX to the first 
word of entry 6, which would transfer control to the 
LOCAL/SOCAL flipper subroutine (FLIPR) at 
FL230, the entry point in FLIPR for fetching the 
arithmetic subprograms. The flipper would fetch 
SOCAL 1, change the third word of entry 3 to MDX 
to *-3, and BSC to the first word of entry 3, which 
then transfers control to FADD. The flipper would 
also ensure that the third words of entries 4 and 5 
were both MDX to *-12. 
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ENTRY 8 - a branch to the entry point 
in the flipper for fetching SOCAL 3; 
an unused word 



ENTRY 7 - a branch to the entry point 
in the flipper for fetching SOCAL 2; 
an unused word 



ENTRY 6 - a branch to the entry point 
in the flipper for fetching SOCAL 1; 
an unused word 



ENTRY 5 - a branch to a subroutine in 
SOCAL 3 via word 3 of LIBF TV 
entry; a branch to fetch SOCAL 3 



the first word of entry 3, followed by a transfer of 
control to FADD. The transfer has required only 2 
short BSIs, a short MDX, and an indirect BSC. 

The linkage for a CALL to a function is somewhat 
different from that just described. Suppose that 
(1) SOCAL option 2 was used and (2) each SOCAL 
consists of two subprograms, FABS and FSQR being 
the functions in SOCAL 1. 

Figure 12 shows SOCAL 1, SOCAL 2, and SOCAL 
3 as they are stored on the disk. The first 2 words 
of each of these SOCALs are the CALL TV for 
the subprograms in that SOCAL. 

A CALL to FSQR, for example, would be an 
indirect BSI to the second word of whichever SOCAL 
happened to be in the SOCAL area. If this were 
SOCAL 1, control would be immediately transferred 
to FSQR. Otherwise, control would first be given to 
the LOCAL/SOCAL flipper at FL200, the entry point 
in FLIPR for fetching the function subprograms. 
The flipper would fetch SOCAL 1 and re-execute the 
original CALL to FSQR. 



DEFINE FILE TABLE 



BSC I 



I MDX *-12| 



BSC L I FLOAT 



ENTRY 4 - a branch to a subroutine in 
SOCAL 2 via word 3 of LIBF TV 
entry; a branch to fetch SOCAL 2 



ENTRY 3 - a branch to a subroutine in 
SOCAL 1 via word 3 of LIBF TV 
entry; a branch to fetch SOCAL 1 



ENTRY 2 - a link word; a branch to 
an in-core subroutine, i.e., 
FLOAT 



The processing of the DEFINE FILE Table normally 
consists of filling in word 5 (the sector address) for 
each entry in the DEFINE FILE Table preceding the 
mainline program. 

However, additional processing is required when 
a file must be truncated, i. e. , the space available 
on the disk is insufficient to store the number of 
records defined in the file. If the file is in the User/ 
Fixed Area, or if it is the only file in a particular 
Working Storage, then the Core Load Builder attempts 
to truncate it enough to fit. 



DC 



BSI 3 disp I DC FADD 



K 



ENTRY 1 - a link word; a branch to 
the SOCAL linkage for a subroutine 
in SOCAL 1; the address of a sub- 
routine in SOCAL 1, i.e., FADD 

HIGH 
CORE 



Figure 1 1 . SOCAL Linkage in the LIBF Transfer Vector 



Suppose now that FADD were called again before 
some subprogram in either SOCAL 2 or SOCAL 3 
were called. This time the LIBF would cause a 
BSI to the first word of entry 1 and then to the 
second word of entry 3. The MDX would then be to 



CALL TV for FABS, 
consisting of the 
entry point address 
of FABS 

l-CALL TV for FSQR, 
consisting of the 
entry point address 
of FSQR 



FL200, the address of 
the entry point in 
the flipper for 
fetching SOCAL 1 
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Figure 12. CALL Transfer Vector for SOCALs 



Section 8. Core Load Builder 39 



First, the entire DEFINE FILE Table is fetched 
and stored in the unoccupied area allocated to the 
Load Table. If the Core Load Builder determines 
that a file can be truncated, the number of records 
and the disk block count in the appropriate DEFINE 
FILE Table entry are modified accordingly. As 
each entry is completed, all seven words are relocat- 
ed in the same manner as the other words of the 
core load. 

The processing consists of comparing the file 
number of a DEFINE FILE Table entry with each of 
the file numbers in the FILES information in the 
SCRA, if any. If a match occurs, the name of the 
disk area associated with the file number obtained 
from the FILES information is found in LET/FLET, 
and the sector address of that disk area is placed in 
word 5 of the DEFINE FILE Table entry. If none of 
the file numbers from the FILES information match 
the file number in the DEFINE FILE Table, the file 
is set up in Working Storage. In either case, the 
system cartridge is assumed unless a cartridge 
ID has been specified in the FILES information. 

The format of a DEFINE FILE Table entry is as 
follows: 



Symbolic 

Word Description Reference 

1 File number @FLNR 

2 Number of records in the file @RCCT 

3 Number of words per record @WDRC 

4 Address of the associated 

variable @ASOC 

5 Sector address of the file; 

initially zero, filled in by 

the Core Load Builder @SCAD 

6 Number of records per sector @RCSC 

7 Disk block count of the file @BCNT 



PHASE DESCRIPTIONS 



Function 

Search LET/FLET 

Fetch the mainline program header 

record 
Fetch the next word in sequence 

from the data buffer, reading a 

new sector when necessary 
Test a subroutine name for disk I/O 
Add an entry to the Load Table 
Fetch a phase 
Exit to DUP, Supervisor, or Core 

Image Loader 
Print a message and transfer to 

EX000 
Fetch one of the message phases 

and transfer control to it 
Read from or write to the disk 



Subroutine 

LS000 
RH000 

NW000 



CN000 
BT000 
LK000 
EX000 

TL000 

PM000 

GP000 

PHASE 1 



Phase 1 performs the initialization functions that 
must be done prior to the relocation of the mainline. 
Initialization consists of, principally, fetching 
DCOM and extracting the parameters that are needed 
by the Core Load Builder, and fetching the mainline 
header record and saving the information therein. 

In addition, phase 1 makes an entry in the Load 
Table for each LOCAL and NOCAL specified in the 
LOCAL and NOCAL information in the SCRA, if any. 

The following is a list of the subroutines that 
comprise phase 1 and the functions they perform. 

Subroutine Function 

IN000 Initialize the Core Load Builder, 

process the mainline header 

LN000 Enter LOCAL and/or NOCAL 

names in the Load Table 



PHASE 

Phase always remains in core. It consists of two 
main sections, (1) the basic subroutines required by 
all other phases and (2) the constants and work areas 
shared by two or more subroutines. The latter 
section is known as RCOM. 

The following is a list of the subroutines that 
comprise phase and the functions they perform. 



PHASE 2 

After the execution of phase 1, part of phase 2 re- 
mains in core until the core load is completed. 
Phase 2 contains the Master Control subroutine, 
the relocation subroutine, and the transfer subroutine, 
among others (see below). Master Control supplies 
the basic logic for the Core LOad Builder. The re- 
location subroutine supplies the logic for relocating 
a program, i.e. , incorporating it into the core load. 
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The transfer subroutine provides the logic for trans- 
ferring a relocated word of the core load to the CIB, 
the CIB buffer, or Working Storage, whichever is 
appropriate. These three subroutines are basic to 
the process of building a core load. 

The following is a list of the subroutines that 
comprise phase 2 and the functions they perform. 



Subroutine 

HR00O 

CC000 

TY000 
SV000 



Subroutine 



Function 



Function 

Process the program header 
record for subroutines 

Control the loading of subroutines 
by type 

Verify subroutine references 

Scan Load Table for multiple 
references 



MC000 Master control for the Core Load 

Builder 
RL000 Relocate a program; convert it 

from disk system format to disk 

core image format 
TS000 Process the IBT 

TR000 Output one data word to core or 

disk 
XC000 Fill in exit control cells during 

pass 2 
DC000 Process DSA statements 

MV000 Output the DEFINE FILE Table 

ML000 Check mainline loading address 

for validity 
CK000 Check for overlay of core load and 

COMMON 
DF000 Process the DEFINE FILE Table 

entries 
FM000 Print a map of the DEFINE FILE 

Table 



PHASE 4 

Phase 4 performs two functions. It incorporates 
ILSs into the core load and it determines whether or 
not a core load fits in core storage or can be made 
to fit with SOCALs by computing the core that can 
be saved by employing SOCALs. 

The following is a list of the subroutines that 
comprise phase 4 and the functions they perform. 



Subroutine 

IL000 
ET000 



PHASE 5 



Function 

Fetch and relocate an ILS 
Calculate core load size 



PHASE 3 

Phase 3 performs four functions. It checks the 
information in subroutine header records (except 
ILSs) and stores it in RCOM. It also ensures that 
during pass 2 the subprograms are relocated by 
class, i.e. , class first, LOCALs second, class 1 
third, class 2 fourth, and class 3 fifth. It compares 
the reference to each subprogram, i.e., CALL or 
LIBF, with the type (from the program header 
record). Lastly, as a subprogram is chosen for 
relocation, phase 3 checks whether or not it has 
already been relocated under a different name, i. e. , 
another entry point. 

The following is a list of the subroutines that 
comprise phase 3 and the functions they perform. 



Phase 5 creates the Flipper Table if LOCALs have 
been specified, sees to it that the flipper is relocated, 
and provides the logic for building each SOCAL. 
This phase is flip-flopped with phase 3. It is brought 
into core storage once if there are LOCALs and once 
for each SOCAL, which implies a maximum of four 
times. 

The following is a list of the subroutines that 
comprise phase 5 and the functions they perform. 

Subroutine Function 

PL000 Process LOCAL subprograms 

PS000 Process SOCAL subprograms 

FF000 Relocate the LOCAL/SOCAL 

flipper, FLIPR 
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PHASE 6 



PHASE 11 



Phase 6 performs several miscellaneous functions 
that must follow the actual building of most of the 
core loado The most important of these is the con- 
struction of the transfer vector from the Load Table. 
Other functions performed in phase 6 are filling in 
exit control cells and completing the core image 
header. 

The following is a list of the subroutines that 
comprise phase 6 and the functions they perform,, 



Subroutine 

TV000 
TP000 



Function 

Build the transfer vector 
Complete core image header, 
in exit control cells, etc 



fiU 



PHASE 7 

Phase 7 formats and prints (via the principal print 
device subroutine) all messages from R00-R10. 
These messages contain no variables. 



PHASE 8 

Phase 8 formats and prints (via the principal print 
device subroutine) all messages from R16-R23. 
These messages contain a 5-character name follow- 
ing "R XX". 



PHASE 9 

Phase 9 formats and prints (via the principal print 
device subroutine) all messages from R39-R47. 
These messages contain a hexadecimal address 
following "R XX 1 '. 



PHASE 10 

Phase 10 formats and prints (via the principal print 
device subroutine) all messages from R64-R68. 
These messages contain a 5-character name follow- 
ing "R XX". 



Phase 11 formats and prints (via the principal print 
device subroutine) the files portion of the map. It 
is entered only if (1) a map is requested and (2) there 
are files defined. 



PHASE 12 

Phase 12 formats and prints (via the principal print 
device subroutine) the allocations of core storage. 
It is entered only if a map is requested. 



DEBUGGING/ANALYSIS AIDS 

Stopping the Core Load Builder at the proper time 
is often the key to pinpointing problems in monitor 
system and, in some cases, user programs. There 
are NOP instructions in several critical locations in 
the Core Load Builder; they are: LK000+1, PM000+1, 
m000+l, MC000, E1000+1, E2000+1, E3000+1, and 
E4000+1. These NOPs can be replaced by WAIT 
instructions so that core dumps can be taken at 
various stages of the core load building process. 
A WAIT replacing the NOP at PM000+1 is often the 
most useful, for it can be used to stop the Core Load 
Builder just before an error message is printed. 

Bear in mind that, even though an error is detect- 
ed by the Core Load Builder, it may well be due to a 
failure somewhere else in the monitor system. The 
message printed may not be a very good indication of 
the error; many checks are present in the Core Load 
Builder simply to keep it from destroying itself. 
For example, a common message is R16, and the 
name given in the message may well be something 
that makes no sense or was not referenced in the 
core load. The problem may well be erroneous 
output from the FORTRAN Compiler or Assembler 
Program or a destroyed User Area. In such a case 
an analysis of the contents of the data buffer BUFLO 
usually provides the clue to the error. 

To facilitate path tracing through the Core Load 
Builder, all subroutines in the Core Load Builder 
are entered with BSI instructions. 
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SECTION 9. DISK UTILITY PROGRAM (PUP) 



FLOWCHARTS 




CCAT: 


DUP01 




DCTL: 


DUP02 




STORE: 


DUP03 




FILEQ: 


DUP04- 


06 


DDUMP: 


DUP07- 


08 


DUMPLET: 


DUP09 




DELETE: 


DUP10 




DEFINE: 


DUP11 




DEXIT: 


DUP12 




PRE CI: 


DUP13 





The Disk Utility Program (DUP) is actually a group 
of programs provided by IBM to perform certain 
frequently required operations involving the disk 
such as storing, moving, deleting, and dumping 
data and/or programs. These operations are called, 
for the most part, by user-supplied DUP control 
records. 



DUP OPERATION 



When DUP is called, the phases CCAT and DUPCO 
are brought into core storage. CCAT forms the re- 
quired DUP I/O subroutine sets (phases 14, 15, 16) 
and records them. CCAT also forms the balance of 
UPCOR, including CATCO and the principal print 
device subroutine, and is completely overlaid by 
part of UPCOR, leaving only the DUPCO part of 
phase 1 in core storage as part of UPCOR. 

Control is passed to REST (of DUPCO) and REST 
in turn calls DCTL into core storage. 

In general, DCTL reads, prints, decodes and 
checks the control records, and then calls in the re- 
quired phase to continue processing as the function 
requires. 

The called phase completes the function, includ- 
ing the printing of the terminal message. Control 
is then passed to REST (of DUPCO) , which restores 
CATCO areas to zero as required for initialization, 
fetches DCTL if it is not already in core (4K system), 
and branches to DCTL to read the next record. 

When a monitor control record is read, a CALL 
EXIT is executed by DEXIT. 



CORE STORAGE LAYOUT 



Figure 13 shows the layout of core storage during 
DUP operation. Panel 1 shows the overlay scheme 
used for 4K systems, panel 2 for 8K systems, panel 
3 for 16K systems, and panel 4 for 32K systems. 
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Figure 13. Core Layout During Disk Utility Program Operation 
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DUP CONTROL RECORDS 



In the table below, DUP control records are classi- 
fied by type according to the phases required to com- 
plete their processing. 



Type 


Phases Required 


STORE 
STORE MOD 
STOREDATA 
STOREDATACI 


DCTL, STORE, DUPCO 


STORE CI 


DCTL, FILEQ, STORE, 
DEXIT, Core Load 
Builder, PRE CI, DCTL, 
STORE, DUPCO 


DUMP 
DUMPDATA 


DCTL, DDUMP, DUPCO 


DELETE 


DCTL, DLETE, DUPCO 


DEFINE FIXED AREA 

DEFINE VOID 
ASSEMBLER 

DEFINE VOID FORTRAN 


DCTL, D FINE, DUPCO 


DUMPLET 
DUMPFLET 


DCTL, DMPLT, DUPCO 


DWADR 


DCTL, DEXIT, ADRWS 
Program, DUPCO 



LOCATION EQUIVALENCE TABLE (LET)/FrXED 
LOCATION EQUIVALENCE TABLE (FLET) 



LET is the table through which the sector addresses 
of programs and data files stored in the User Area 
may be found. Each entry in this table consists of 
three words, the first two of which are the program 
or file name in name code. The third word is the 
disk block count of the program or file. Bits and 1 
of the first word denote the format of the entry, i. e. 
DSF, DCI, or DDF. The corresponding bit patterns 
are 00, 10, and 11. The 01 pattern is reserved for 



future use. For a DSF subroutine having multiple 
entry points, the disk block count is zero for all 
entry points except the first. 

Padding, wherever required to ensure that DCI 
programs and data files are sectorized, is reflected 
in LET as if a program called T, 1DUMY" were stored. 
That is, each instance of padding generates a 
1DUMY entry in LET, and the block count for each 
of these entries is the number of disk blocks to the 
nearest sector boundary. The last entry in LET is 
always a 1DUMY entry that reflects the number of 
disk blocks from the end of the last program stored 
in the User Area to the end of the disk. 

Each sector of LET contains a header, which 
occupies the first five words of the sector. The first 
word contains the sector number, which is 0, 1, . . . , 
or 7. The second contains the sector address of the 
User Area for this cartridge. The third is reserved 
for future use. The fourth contains 315 minus three 
times the number of LET entries found in this sec- 
tor, i.e. , the number of words unused (available) in 
this sector. If this is not the last sector of LET on 
this cartridge, then the fifth word contains the ad- 
dress of the next sector of LET. If it is the last 
sector of LET and if there is no FLET on this car- 
tridge, this word contains zero; otherwise, it con- 
tains the address of the first sector of FLET. In 
other words, this fifth word (chain address) is used 
to chain from LET through FLET, sector by sector. 
Bits 0-3 of the fifth word are always zeros. Note 
that, when referring to a dump of LET, the above 
header words are expressed in hexadecimal. 

FLET is the table through which the sector ad- 
dresses of programs and data files stored in the 
Fixed Area may be found. FLET is analogous to 
LET in the format of its entries and its use by the 
monitor system programs. 

LET/FLET is searched by LETSR of DCTL for 
the name decoded from DUP control records of the 
STORE, DUMP, and DELETE types. The informa- 
tion required by other DUP phases is recorded in 
CATCO. If a DSF program is being stored, then 
LETSR also searches LET/FLET for the secondary 
entry point names as well. 

STORE inserts the required entries into LET/ 
FLET (one entry for each entry point). If a DCI 
program or data file is being stored and padding 
is required, then a 1DUMY LET/FLET entry is 
inserted prior to the named LET/FLET entry. All 
secondary entry points have their entries on the 
same sector as the LET/FLET entry for the primary 
entry point. 
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PUP CONCATENATED COMMUNICATIONS 
AREA (CATCO) 

CATCO contains the following elements: 

• DCOM values that are read from DCOM and 
placed in CATCO by CCAT of DUPCO. 

• IOAR headers (word counts and sector addresses) 
required by DUP, furnished to CCAT by the 
System Loader, converted by CCAT to two-word 
entries each, and placed in DCOM by CCAT of 
DUPCO. 

• Words used only by DUP for switches, small 
work areas, and communications between various 
DUP phases. 

• I/O addresses used by DUP, initialized by CCAT 
of DUPCO. 



DCOM VALUES 

DCOM is read from the master cartridge by CCAT 
of DUPCO whenever DUP is called by the Monitor 
Control Record Analyzer. The following parameters 
in DCOM are used by DUP: 



Location 

#ANDU 

#BNDU 

#CBSW 

#CIAD 

#CIBA 

#CIDN 

#CSHN 

#DBCT 

#DCSW 

#ENTY 

#FCNT 

#FHOL 

#FLET 

#FMAT 

#FPAD 

#FRDR 

#FSZE 

#JBSW 

#LCNT 



Relative Address 
(decimal) 

35 
40 
10 
27 
60 
55 
90 

6 

24 
16 

7 
20 
75 
70 
45 
19 
21 

9 
11 



Location 

#MDF1 

#MDF2 

#MPSW 

#NAME 

#NCNT 

#PCID 

#PIOD 

#PPTR 

#RP67 

#SCRA 

#TODR 

#UHOL 

#ULET 

#USZE 

#WSCT 



Relative Address 
(decimal) 

13 
14 
12 
4 
15 
50 
25 
26 
17 
65 
18 
22 
80 
23 
85 



These parameters are referred to by an index regis- 
ter that contains the address of the first word of 
DCOM plus the displacement given above. 

Whenever a parameter in DCOM has been changed 
by DUP and control is being relinquished to another 
monitor system program, DUP writes the DCOM 
values in CATCO to DCOM on the master cartridge 
before exiting. If a change has been made that 
refers to a satellite cartridge, the DCOM values are 
also written to DCOM on the affected cartridge. 

See the description of DCOM in Section 2. Com- 
munication Areas for details regarding the above 
parameters. 



IOAR HEADERS 

CATCO contains the IOAR header for each phase of 
DUP required by other phases during the execution of 
the various DUP functions; they are: 



Location 


Phase Name 


Phase Number 


DCHDR 


DCTL 


2 


STHDR 


STORE 


3 


FLHDR 


FILEQ 


4 


DMHDR 


DDUMP 


5 


DLHDR 


DMPLT 


6 


DTHDR 


DLETE 


7 


DFHDR 


DFINE 


8 


DXHDR 


DEXIT 


9 


UCHDR 


UPCOR 


10 
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Location 


Phase Name 


Phase Number 


PIHDR 


KFACE 


11 


SIHDR 


CFACE 


12 


PTHDR 


PFACE 


13 


CfflDR 


PRE CI 


17 



These headers are initialized by CCAT of DUPCO 
whenever the Monitor Control Record Analyzer calls 
DUP. The contents of these headers are not altered 
by any phase of DUP. 

Each IOAR header consists of two words, word 1 
containing the word count and word 2 containing the 
sector address of a phase. Each pair is aligned on 
an even boundary. 



SWITCHES 

The following DUP switches are initialized by CCAT 
of DUPCO and not altered by any function of DUP. 

ADDR2 — Keyboard interrupt address, to be put in 
location /0045 by MASK of DUPCO so that during 
a masked operation, the Keyboard interrupt is 
delayed by DUP until a critical operation is 
completed. 

KBREQ — Contents of location /0045, saved by 
CCAT of DUPCO when DUP is given control, and 
restored by DEXIT of DUP when leaving DUP. 

INOUT — Indicator for the principal I/O device 
when DUP was called by the Monitor Control 
Record Analyzer. 
Negative = Paper Tape. 
Zero = Cards. 
Positive = Keyboard. 

PTPON — A non-zero value if paper tape devices are 
are present on the system. 

IBT — Nine locations containing the interrupt branch 
table for level 4, initialized by CCAT of DUPCO 
and the card and paper tape interface phases. 



ASMSW — Set non-zero by DFCTL of DCTL when a 
DEFINE control record indicates that the Assem- 
bler Program is to be deleted from the master 
cartridge. Used by DFINE for functional flow 
control. 

BITSW — Set non-zero by RE015 of DCTL to allow 
the MDUMP subroutine in DUPCO to call the 
System Core Dump program while executing var- 
ious DUP phases. It is set on the basis of the 
contents of column 35 of the DUP control records. 
This column is not normally used, but it may be 
used to obtain snap-shot core dumps while per- 
forming DUP operations. A zero punched in this 
column causes all possible DUP dumps to occur. 
Other numbers cause core dumps to be taken 
when the phase with the same phase ID is in con- 
trol (See DUP Diagnostic Aids. ) . 

BLKSW — Set by the DUP I/O interface subroutine 
(in IOBLK) when reading control records if the 
record is neither a monitor control record (//) or 
a DUP control record (*D or *S). If turned on, 
DCTL turns it off and returns to the GETHO entry 
of the DUP I/O interface subroutine. This permits 
DUP to pass non-control records, including blanks, 
at the maximum rate of 1000 per minute? with a 
single buffer. 

CIERR — Set to a DUP error code for an error 
detected by PRE CI during a STORE CI operation. 
DCTL checks CIERR when entered from PRE CI 
(CISW is non-zero) and goes to DEXIT thru 
LEAVE of DUPCO with the specified error code. 
PRE CI cannot go directly to LEAVE because DUP 
UPCOR may not be in core storage at this time 
due to the possibility of being overlaid by the core 
load being built. 

CISW — Set by DCTL when *STORECI is the function 
specified on the DUP control record. Used by 
DCTL to detect an entry from PRE CI (during a 
*STORECI function). Used by STORE to determine 
the functional path to be used. 



The following locations are used by DUP for in- 
ternal communication, and are initialized to zero 
by REST before each DUP control record is proc- 
essed. 



CLBSW — Set non-zero by PRECI. Used by STORE 
to indicate an entry from PRECI after the Core 
Load Builder has built the core load for the 
STORE CI function. 
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CL1, CL2 — The addresses of the lower and upper 
limits, respectively, of parameters in CATCO 
to be cleared to zero by REST of DUPCO. 

CNTNO — Used by GETBI of the DUP I/O interface 
subroutine (in IOBLK) to record the count of 
binary records being read or punched . Permits 
checksum and sequence check operations. 

DATSW — The binary equivalent of the decimal 
value in the count field of the DUP control rec- 
ord. Entered by DACNT of DCTL. A non-zero 
value represents either STORED ATA, 
DUMPDATA, DEFINE FDCED AREA count, or 
STORE CI with *FILES, *LOCAL, and *NOCAL 
control records following. Contents are in disk 
blocks if the input is from disk, records if from 
an I/O device. Used by DUMP, STORE, DEFINE 
and FILEQ as a count; also used to control func- 
tional flow. FILEQ clears DATSW before calling 
STORE. 

DBADR — Set by LETSR of DCTL to the disk block 
address of the program represented by the last 
LET/FLET entry searched. Used by DUMP and 
DELETE to indicate the disk block address of the 
desired program or data file. 

DELSW — Set by LETSR of DCTL to point to the re- 
quired entry in LET/FLET minus one word. 
Actually contains a value somewhere in the buffer 
LETAR. Used by DMPLT when dumping the 
entry point(s) or name of a single program. Used 
by DELETE to point to an entry in LET/FLET 
that is to be deleted. Used by STORE to point to 
an entry in LET/FLET where the entry point(s) 
is to be inserted. 

DFNSW — Set by DFCTL of DCTL to indicate a 
DEFINE FDCED AREA operation. Used by 
FRLAB of DCTL to bypass the decoding of the 
FROM field. 

DKSAD — Set by DUP30 and DUP34 of DUPCO to 
indicate the sector address (without a logical drive 
code) of the current GET or PUT operation. 

DUMPP — Two words located on even boundary, set 
by all DUP phases requiring special monitoring 
dumps. Used by MDUMP of DUPCO to specify 
lower and upper limits to be dumped to the 
printer. 



FRWS — Set non-zero by SC130 if the FROM field 
is Working Storage. Used by DCTL for functional 
flow control and error checking. 

FXSW — Set non-zero by SC130 or SC170 of DCTL 
when either the FROM or the TO field, respec- 
tively, of the DUP control record specifies the 
Fixed Area or when the control record specifies 
DEFINE FIXED AREA. Used by DCTL for error 
checking and functional flow control. Used by 
DFINE, STORE and DUMP for functional flow 
control. 

FORSW — Set non-zero by DFCTL of DCTL when a 
DEFINE control record indicates that the 
FORTRAN Compiler is to be deleted from the 
master cartridge. Used by DFINE for functional 
flow control. 

HOLSW — Set non-zero by DCTL when a 

STORED AT A or a DUMPDATA control record 
contains an H in column 11. Used by STORE and 
DUMP to allow data movement without any con- 
version for the I/O devices, i. e. , 1 word to 1 col- 
umn or 1 frame. 

IOSW — Set non-zero by either SC130 or SC170 of 
DCTL when any I/O device is specified in the 
FROM or TO field of the DUP control record. 
Used by DCTL for error checking and functional 
flow control. Used by DUMP and STORE for func- 
tional flow control. 

LETSW — Set positive by LECTL and negative by 
FLCTL of DCTL. Used by DUMP LET to indicate, 
respectively, a full LET/FLET dump or a FLET 
dump only. 

LSTLF — Set by LETSR of DCTL to the sector ad- 
dress (with a logical drive code) of the last LET/ 
FLET sector searched. If only one sector was 
searched, then the address of that sector is 
entered in LSTLF. Used by DUMP and DELETE 
to identify the logical drive required. 

MODSW ~ Set non-zero if STCTL of DCTL detected 
a STOREMOD function specified by the DUP con- 
trol record. Used by STORE for functional flow 
control. 

NAMSW — Set non-zero by LETSR of DCTL when a 
name is found in LET/FLET that matches the name 
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specified on the DUP control record. Used by 
DCTL for error detection and functional flow con- 
trols Used by DUMPLET to indicate that only the 
specified LET/FLET entry is to be dumped. 

NEGSW — Set non-zero by DFCTL of DCTL when a 
minus sign is detected in column 31 of a DEFINE 
FIXED AREA control record. Used by DEFINE 
to indicate expansion (zero) or contraction (non- 
zero) of the Fixed Area. 

PGMHL — Word count (length) of the program head- 
er in DSF programs. Set by RDHDR of DCTL to 
the actual program header length. Used by 
STORE to start the placement of the first data 
header in the DSF output. Set by DUMP from the 
program header . Used by STORE to update LET 
with the required number of entries. 

P1442 — Set by CCAT of DUPCO to contain the word 
count and sector address of the System 1442 sub- 
routine. Used by DDUMP to read the System 
1442 subroutine into core when dumping to cards. 

PHDUP — Duplicate of $PHSE to permit printed 
identification of the DUP phase requesting a core 
dump. 

PRPAR — Two words specifying the default limits 
to be dumped by MDUMP. Set by any module of 
DUP desiring to use MDUMP for monitoring DUP's 
status. Usually set to point at key parameters 
and work areas. 

PRSW — Set non-zero by SC170 of DCTL when 
printing is specified as the desired output on the 
DUP control record. Used by DCTL for error de- 
tection and by DUMP for functional flow control. 

PTSW — Set non-zero by SC130 or SC170 when 
paper tape is specified in the FROM or TO field 
of the DUP control record. Used by DCTL for 
error detection and functional flow control. Used 
by DUMP for functional flow control. 

SDWDS — The number of words yet to search in the 
current LET/FLET sector. Set by LETSR of 
DCTL. Used by LETSR of DCTL to test for the 
sector search complete condition. 

STCSW — Set non-zero by ST400 of DCTL when the 
CI is detected in columns 11 and 12 of the 



STOREDATACI control record. Used by STORE 
for functional flow control. 

STSW — Set non-zero by STCTL of DCTL when a 
STORE control record is found. Set by LETSR of 
DCTL to the sector address (with a logical drive 
number) of the LET/FLET sector that contains the 
1DUMY entry that may be replaced by the entry 
for the program to be stored. Used by DCTL for 
functional flow control. Used by STORE to hold 
the LET/FLET sector address and drive code 
prior to inserting the LET/FLET entry for the 
program or data file to be stored. 

TEMPI, TEMP2 — Two words, on an even boundary, 
used by various phases of DUP for miscellaneous 
purposes; i.e. , DUP10 of DUPCO returns four 
EBCDIC characters in TEMPI and TEMP2 as the 
result of converting from binary to hexadecimal 
for purposes of printing. 

TOWS — Set non-zero by SC170 if the TO field is 
Working Storage. Used by DCTL for error check- 
ing and functional flow control. 

T3MSW — Set non-zero by STCTL of DCTL when a 
type 3 or 4 subroutine contains a SOCAL level 
number specified on the DUP control record. Used 
by STORE to modify the type field in the program 
header before storing the subroutine to disk. 

UASW — Set non-zero by SC130 or SC170 of DCTL 
when either the FROM or TO field of the DUP 
control record specifies the User Area. Used by 
DCTL for error checking and functional flow control. 
Used by STORE for functional flow control. 

WSSW — Set non-zero by SC130 or SC170 of DCTL if 
the FROM or TO field of the DUP control record 
specifies Working Storage. Used by DCTL for er- 
ror detection. Used by DUMP and STORE for 
functional flow control. 

XEQSW — Set non-zero by PLUS2 of DCTL when 
calling in the required DUP phase to indicate that 
execution of that phase is desired rather than re- 
turning to PLUS2. Set non-zero by any other DUP 
phase using GET of DUPCO to fetch other phases 
from the disk that are to be executed immediately. 
Used by GET of DUPCO* to determine whether to 
return to the link address (zero) or to execute 
the phase just fetched (non-zero). 
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The following switches are initialized to zero by 
CCAT of DUPCO, set by PLUS2 of DCTL, and not 
reset by REST of DUPCO. These are cleared by 
DEXIT before UPCOR is saved in preparation to 
calling the Core Load Builder. This forces DCTL 
on return from the Core Load Builder via PRE CI to 
fetch STORE again as it may have been overlaid by 
the core load being built. 

PH2 — Set non-zero by PLUS2 of DCTL when fetch- 
ing another DUP phase. Used by REST of 
DUPCO: if zero, DCTL must be fetched from 
disk; if non-zero, DCTL has already been 
fetched. 

PH3 ~ Set non-zero by PLUS2 of DCTL when fetch- 
ing STORE. Used by PLUS2 of DCTL: if zero, 
STORE must be fetched from disk; if non-zero, 
STORE has already been fetched. 

PH4 — Set non-zero by PLUS2 of DCTL when fetch- 
ing DDUMP. Used by PLUS2 of DCTL: if zero, 
DDUMP must be fetched from disk; if non-zero, 
DDUMP has already been fetched. 

IOREQ — Set non-zero by PLUS2 of DCTL in case 
I/O other than from the specified I/O device is 
required (i.e., Keyboard input when the DUP 
operation is a STORE from cards) . Checked by 
READ of DCTL, and, if still non-zero, the princi- 
pal I/O section (DUP phase 14) is brought back 
into core storage. 



performed during any DUP operation. The con- 
tents of this buffer are in packed EBCDIC. 

IOBLK — Set to the starting address for the I/O 
block portion of UPCOR. The I/O block contains 
one of phases 14, 15, or 16 of DUP. 

SDBUF ~ Set to the address of the 322-word buffer 
used by the STORE, DDUMP, and DELETE func- 
tions of DUP. This buffer always resides in the 
first 4K of core storage. 

LETAR — Set to the address of the 322-word buffer 
used for the LET/FLET search of DUP. This 
buffer is also a one-sector buffer, or the second 
half of a two-sector buffer used in disk I/O oper- 
ations. 

PEBUF — Set to the address of a buffer used for 
printing the DUP control records (41 words in 
packed EBCDIC) or for printing a LET dump, a 
FLET dump, a program dump, or a data dump 
(61 words in packed EBCDIC). 

THIS — Set to the address of one of two buffers used 
for double buffering of binary input (see NEXT). 
The buffer is 81 words long. 

NEXT — Set to the address of one of two buffers 

used for double buffering of binary input (see THIS). 
The buffer is 81 words long. 



I/O ADDRESSES 



DUP PHASE DESCRIPTIONS 



The following are the I/O addresses required by the 
various DUP phases. They are initialized by CCAT 
of DUPCO when DUP is given control. All except 
THIS and NEXT remain as initially set. All (except 
SDBUF) contain the address of an I/O buffer in 
UPCOR. Thus, the locations of the referenced 
buffers are dependent on core size; in any case, they 
always reside in the upper 4K of core storage. 
SDBUF always resides in the first 4K of core storage. 

CRBUF — Set to the address of an 81-word buffer 
used for reading DUP control records in unpacked 
EBCDIC. 



DUP COMMON (DUPCO) 

• Initializes the I/O phases required by DUP and 
builds the DUP Communications Area (CATCO). 

• Performs functions commonly required by other 
DUP phases. 

The initialization function of DUPCO is performed 
by a subroutine known as CCAT. CCAT resides in an 
area reserved for the System print subroutine, but is 
not overlaid by it until all other initialization has been 
completed. This initialization includes: 



HDBUF — Set to the address of the buffer used for 
printing the page heading after each page restore 



• Construction of the DUP paper tape I/O phase if 
paper tape is attached. This phase is written to 
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the disk area reserved for DUP phase 16 at 
System generation time. 

• Construction of the DUP principal I/O phase 
(without Keyboard). This phase is written to the 
disk area reserved for DUP phase 15 at System 
generation time. 

• Construction of the DUP principal I/O phase. 
This phase is written to the disk area reserved 
for DUP phase 14. This phase is left in core 
storage at IOADR. 

• Initialization of all I/O -dependent switches in 
CAT CO. 



4 
5 
8 
9 
A 



Convert binary to EBCDIC 
Print terminal messages 
Read cards 
Read paper tape 
Read Keyboard 



PHED — This subroutine is used to record the phase 
E) of the phase in execution in $PHSE of COMMA. 
It is also used by some DUP phases to illustrate 
the progress of execution from one section of the 
phase to the next. When used for this purpose, 
the high-order digit of $PHSE is changed to the 
appropriate phase section modifier. A core dump 
indicates the last section of the phase that was 
executed. 



• Incorporation of DCOM from the master cartridge 
into CATCO. 

• Incorporation of IOAR headers (word counts and 
sector addresses) of other DUP phases into 
CATCO. This information is supplied to CCAT 
by the System Loader. 

• Initialization of DUP's page heading buffer with 
the heading contained in sector @HDNG. 

• Fetching the System device subroutine for the 
principal print device. This subroutine over- 
lays all but a few words of CCAT. These last 
words are cleared to zero just before branching 
to REST. 

The functions that are common to all DUP phases 
are included in the non-overlaid section of DUPCO. 
These functions are provided by the following sub- 
routines: 

WRTDC — This subroutine is used by STORE, 
DELETE, and DEFINE when it is necessary to 
update DCOM. This includes the updating of 
DCOM on any affected satellite cartridge as well 
as on the master cartridge. 

PHDDM — This subroutine is used to modify the 
next-to-high-order hexadecimal digit of $PHSE 
in COMMA. It is used primarily by DUP's I/O 
functions to illustrate in a core dump the I/O 
operation last performed. The modifications are: 



Read from disk 
Write to disk 



MASK — This subroutine is used to prevent: recogni- 
tion of the INTERRUPT REQUEST key. The func- 
tion of this key is to terminate the current job, 
but DUP must not allow this termination to take 
place while in a critical operation. Therefore, 
functions that affect LET/FLET, the User or Fixed 
Area, the CIB, and DCOM delay its recognition 
(STORE, DELETE, DEFINE). 

LEAVE — This subroutine is used to fetch DUP's 
exit phase (DEXIT) to print an error message or 
service a special exit, such as an exit to the Core 
Load Builder (STORECI function), an exit to the 
ADRWS program (DWADR function) , or an exit to 
the Supervisor following the trapping of a monitor 
control record. 

MDUMP — This subroutine makes selective calls to 
the System Core Dump program. See DUP Diag- 
nostic Aids. 

BINEB — This subroutine is used to convert; binary 
numbers to EBCDIC hexadecimal characters. It 
is used primarily to convert a number for inser- 
tion into a phase termination message, e.g. , 
a cartridge ID , a disk block count. 

PRINT — This subroutine is used to print a line on 
the principal print device. It interfaces with the 
System principal print device subroutine. 

PAGE — This subroutine is used to skip to channel 1 
and print a page heading if the principal print de- 
vice is the 1132 or 1403 Printer. If the Console 
Printer is the principal print device, five carriage 
returns are executed before the page heading is 
printed. 
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LINE — This subroutine is used to single-space the 
principal print device. 

REST — This subroutine is used to chain from one 
DUP function to the next. When a function is 
completed without errors, the DUP phase in con- 
trol prints its termination message and exits to 
REST. REST determines whether or not it is 
necessary to bring DCTL into core storage (i. e. , 
core size is 4K, or DCTL has not yet been loaded), 
and, if necessary, fetches DCTL. REST then 
exits to DCTL. 

ENTER — This subroutine is used to save the ac- 
cumulator and extension, the overflow and status 
indicators, as well as XR1, XR2, and XR3. XR1 
is then loaded with the address of the CATCO 
pointer. 

RTURN — This subroutine is used to restore the 
contents of the accumulator and extension, the 
overflow and carry indicators, as well as XR1, 
XR2, and XR3, as saved by the ENTER subrou- 
tine. 

GET — This subroutine is used to read the disk using 
DISKZ. XR3 points to the IOAR header for this 
read when GET is entered, and XR1 contains the 
address of the CATCO pointer. 

PUT — This subroutine is used to write to the disk 
using DISKZ. XR1 and XR3 are initialized in the 
same manner as described for the GET subrou- 
tine. Some error checking is done of the word 
count and sector address in the case of GET and 
PUT. No check is made in GET or PUT as to the 
validity of the logical drive code associated with 
the sector address. GET and PUT assume the 
proper logical drive code has been included with 
the sector address. 



Errors Detected 



• Searches LET for the name specified on STORE, 
DUMP, DUMPLET and DELETE type control 
records. 

• Detects errors in the fields of the DUP control 
records. 

• Calls into core storage the required DUP phase 
and exits to it. 

DCTL remains in core storage during DUP opera- 
tions for configurations of 8K or larger, except dur- 
ing STORECI. DCTL is executed after the REST 
function of DUPCO for each DUP control record as 
well as after PRECI during the processing of a 
STORECI control record. 

DUP Control (DCTL) may be considered in three 
logical parts: the READ subroutine, the DCTL sub- 
routines, and the PLUS2 subroutine. 



READ Subroutine 

This is the entry point into DCTL. It performs the 
following functions: 

• Reads and prints DUP control records. 

• Flushes invalid DUP subjobs. 

• Checks for a monitor control record and exits 
when one is detected. 

• Ensures that the required DUP I/O subroutine 
set is in core storage. 

• Decodes the function field of the DUP control 
record into the various DUP types. 

• Goes to one of the subroutines in the second logical 
part of DCTL to continue the decoding and process- 
ing of the specified type of DUP control record as 
follows: 



The following DUP errors are detected in DUPCO by 
the GET and PUT subroutines: D92 and D93. 

DUP CONTROL (DCTL) 

• Reads, prints and decodes DUP control records. 

• Sets switches in CATCO to reflect the parameters 
specified on the DUP control record. 



Control Record 

* STORE 

*DUMP 

*DUMPDATA 

*DUMPLET 

*DUMPFLET 

*DELETE 

*DEFINE 

*DWADR 



Subroutine Called 

STCTL 
DUCTL 
DACTL 
LECTL 
FLCTL 
DLCTL 
DFCTL 
WACTL 
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DCTL Subroutines 



Buffers Used By DCTL 



These subroutines make up the second logical part 
of DCTL. These subroutines perform the following 
functions for their particular control record type. 

• Decode the balance of the Function field as 
required. 

• Decode the FROM and TO device or area fields. 

• Decode the Name field and perform a LET/FLET 
search if the name is required. 

• Decode the Disk I/O subroutine required with 
STORECI. 

• Decode and record the Count field as required. 
If the operation is a STORECI, FILEQ is brought 
into core storage using the PLUS2 subroutine. 

• Decode the FROM and TO Cartridge ID fields. 

• Check the validity of all fields and go to the 
DEXIT phase if any errors are detected. 

• Prevent restricted phases from being called in 
and executed during Temporary mode of operation. 

• Record all required data in CATCO for use by the 
required phase. 

• Go to the appropriate entry point in the PLUS2 
subroutine to fetch and transfer control to the 
DUP phase required to finish the processing of 
the specified DUP subjob. 

PLUS2 Subroutine 

This subroutine is the third logical part of DCTL 
and is the normal-exit subroutine. The various entry 
points to PLUS2 set up respective IOAR headers that 
cause the desired DUP phase to be called into core 
storage and executed. This subroutine performs the 
following functions: 

• Sets up the IOAR header if the required DUP 
phase is not already in core storage. 

• Fetches and/or executes the required DUP phase. 



Control records are read into the area defined by 
CRBUF and converted to packed EBCDIC in the area 
defined by PEBUF. It is from PEBUF that the control 
record is printed by the principal print device sub- 
routine and from which the various fields are decoded. 

Binary records read for STORE are placed into the 
two buffers specified by THIS and NEXT in order to 
process secondary entry points that are on the header 
record. 

LET/FLET sectors are read one at a time into 
the area specified by LETAR to be searched for the 
name specified on the control record. 



Errors Detected 

The following DUP errors are detected in DCTL: 
D01, D02, D03, D05, D06, D12, D13, D14, D15, 
D16, D17, D18, D19, D20, D21, D22, D23, D24, 
D25, D26, andD27. 



STORE 

The STORE phase of DUP resides in the DUP phase 
overlay area if the core size is 4K or 8K, or in the 
overlay area plus 8K if the core size is 16K or 32K. 
This phase is read into core storage the first time 
DCTL recognizes a STORE control record. It re- 
mains in core storage on a 16K or 32K machine as 
long as DUP has control of the system (i.e.., must be 
brought back into core storage when performing a 
STORECI operation). 

STORE may be considered in seven logical parts, 
each of the following subroutines constituting one 
logical part. 



ST000 Subroutine 



This is the entry point to STORE. It serves as a 
master control for STORE , causing various other 
sections of STORE to be executed as they are required 
for various STORE operations. 
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IOWS Subroutine 



DOLET Subroutine 



This subroutine is executed whenever a STORE op- 
eration is from card or paper tape. It provides the 
following functions: 

• Reads card or paper tape records punched in 
system, data, or core image format. 



This subroutine is executed whenever a STORE oper- 
ation is to the User Area or Fixed Area (except 
STOREMOD). It performs the following functions: 

• Reads the LET or FLET sector to which the entry 
point name (or names) is to be added. 



• Moves data from card or paper tape buffer(s) to a 
disk buffer. 

• Writes the disk buffer to Working Storage (or to 
the User Area or Fixed Area if the operation is a 
STOREDATA or STOREDATACI to the User 
Area or Fixed Area). If the operation is to Work- 
ing Storage, Working Storage of the cartridge de- 
fined as the TO cartridge is used. By default, 
this is the System Working Storage. 

• Updates the Working Storage disk block count and 
format when operation is to, or through, Working 
Storage. 



WD000 Subroutine 

This subroutine is executed whenever a STORE op- 
eration (except STORE CI, STOREDATA, or 
STOREDATACI from cards or paper tape) is to the 
User Area or the Fixed Area. It performs the fol- 
lowing functions: 

• Adjusts the destination User Area or Fixed Area 
disk block address to the next sector when not at 
a sector boundary, if the operation is a STORE - 
DATA or STOREDATACI. 

• Makes the required disk block adjustment when 
moving a system format program to the User 
Area. 

• Moves data or a program in Working Storage to 
the User Area or the Fixed Area. If the opera- 
tion is from Working Storage, Working Storage 
of the cartridge defined as the FROM cartridge 
is used. By default, this is the System Working 
Storage. If the operation is a STORE from cards 
or paper tape, System Working Storage is used. 



• Checks if a 1DUMY padding entry is required be- 
fore the name is entered when storing data or core 
image programs to the User Area. 

• If a LET sector cannot contain the entry, updates 
the header words of the LET sector and writes the 
completed LET sector to disk. 

• Enters a name (or names) in a LET or FLET sec- 
tor and updates the "words available" entry in 
the header. In the case of a LET sector, the 
terminal 1DUMY disk block size is decremented 
by the number of disk blocks stored. 

• Decrements the 1DUMY size in the FLET sector 
by the number of disk blocks stored. All entries 
that follow this FLET entry are pushed to the right 
by the size of one entry (3 words). 



UPDCM Subroutine 

This subroutine is executed whenever the STORE op- 
eration is to the User Area (except STOREMOD) . It 
updates DCOM as follows: 

• Clears the Working Storage disk block count 
(#WSCT) of the TO drive in DCOM to zero. 

• "Puts the disk block address of the end of the User 
Area (plus one disk block) into #ANDU in DCOM 
(in the entry in the drive -dependent parameter for 
the cartridge affected by the STORE operation) . 

• Determines if the STORE operation is in Tempo- 
rary mode; does not put the disk block address 
of the end of the User Area into #BNDU of the TO 
drive during Temporary mode. 

• Updates the base file-protection address in DCOM 
(#FPAD) of the TO drive if the STORE operation 
is not during Temporary mode. 
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SNOFF Subroutine 

This subroutine is executed by all STORE operations. 
It terminates the STORE function as follows. 

• Moves the cartridge ID of the TO drive into the 
STORE terminal message. 

• Moves the disk block address where the data or 
program was stored into the STORE terminal 
message. 

• Moves the disk block count of the program or data 
into the STORE terminal message. 



Fixed Area is the buffer specified by SDBUF. It is 
one sector long if the core size is 4K; otherwise, 
it is seven sectors long. 

LET/FLET sectors are read and written one at 
a time, using the buffer specified by LETAR. 

When STORE reads binary records, it reads them 
into the area specified by THIS and NEXT. If storing 
from cards, double buffering is used; THIS and NEXT 
are each considered to be 80 words long. If storing 
from paper tape, double buffering is not used; THIS 
and NEXT are considered to be an extended buffer, 
large enough to contain the maximum length record 
(108 words). 



Uses the PRINT subroutine in DUPCO to print 
the terminal message. 

Exits to the REST subroutine in DUPCO to clear 
the CATCO switches and restore DCTL if it is not 
in core storage. 



Errors Detected 

The following DUP errors are detected in STORE: 
D30, D31, D33, D90, and D 93. 



FILEQ 



ST700 Subroutine 

This subroutine is executed when performing a 
STOREMOD operation. It performs the following 
functions: 

• Computes the location within the User Area or 
Fixed Area sector at which the old version of the 
program begins. 

• Moves the new version of the program into the 
buffer to replace the old version, one word at a 
time. 

When an output sector is completed, it is written 
to the User Area or Fixed Area. The next User or 
Fixed Area sector is then read into the buffer to 
allow the word by word replacement to continue. 

The entire STOREMOD process is under control 
of the disk block count. The number of disk blocks 
replaced by the new version is determined by the 
disk block count of the old version, as found in LET/ 
FLET. STOREMOD does not alter this count. 



Buffers Used By STORE 

The disk buffer used for moving data or programs 
between Working Storage and the User Area or the 



This phase of DUP is read into core storage by DCTL 
when the Count field (27-30) of the STORE CI control 
record is non-zero. The function of FILEQ is to 
process the records following the STORECI control 
record and place the processed records into the 
SCRA for use by the Core Load Builder. Three types 
of STORECI control records are processed by this 
phase; *LOCAL, *NOCAL, and *FILES. FILEQ 
consists of the subroutines LC000, FR000, and 
LF200. 

LC000 

This subroutine processes *LOCAL and *NOCAL 
control records. A mainline name is not specified 
on these records when they follow the STORECI 
control record; an error is indicated if one is speci- 
fied. Thus, the mainline name is set to blanks. All 
subroutine names specified in *LOCAL or *NOCAL 
control records are converted to name code. 

LOCAL information for the core load to be; built 
is stored in sectors and 1 of the SCRA, NOCAL 
information in sectors 2 and 3. The first word of 
the LOCAL information is the number of words in 
the LOCAL sectors used to store the LOCAL infor- 
mation. A like word count precedes the NOCAL 
information in the NOCAL sectors. 

The format of LOCAL/NOCAL information in the 
SCRA is shown below. 
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Word Count, one word specifying the number of words 

in the two LOCAL/NOCAL sectors occupied 
by LOCAL/NOCAL information, including 
the word count 

Mainline Name, two words of blanks in name code 
format 

Subroutine Name, two words in name code format 
specifying a LOCAL/NOCAL 
subroutine to be included in the 
core load 



II 



Sector 1 



Subroutine Name 
Subroutine Name 



Subroutine Names 



-#■ 



LF200 

This subroutine provides the exit for FILEQ. When 
all *LOCAL, *NOCAL, and *FILES control records 
have been processed, DCTL is read into core stor- 
age using the GET subroutine in DUPCO with the 
execute switch (XEQSW) set. DCTL begins the 
processing of the header of the mainline program 
that is to be stored in core image format. 



Buffers Used By FILEQ 



Subroutine Name 



Sector 2 



Not Used 
___A__ 



-//- 



The buffer used for writing the processed control 
records to the SCRA is referred to as SCRAB. 
SCRAB is another name for BUF7 , known indirectly 
through CATCO as SDBUF. 



FR000 

This subroutine processes * FILES control records. 
File numbers are converted to binary. File names, 
if specified, are converted to name code; if unspeci- 
fied, the name is set to blanks. Cartridge IDs, if 
specified, are converted to binary; if unspecified, 
the ID is set to zeros. 

FILES information for the core load to be built 
is stored in sectors 4 and 5 of the SCRA. The first 
word of the FILES information is the number of 
words in the FILES sectors used to store the FILES 
information. 

The format of FILES information in the SCRA is 
shown below. 

Word Count, one word specifying the number of words in the two 

FILES sectors occupied by FILES information, including the 
word count. 
File Number, one word specifying in binary the number 
assigned to the file in a FORTRAN DEFINE FILE 
statement and by which the file is referenced 
File Name, two words in name code format specifying the 
name of the file as it appears in LET/FLET (zeros 
if no file name is specified) . 
Cartridge ID, one word specifying in binary the ID 
of the cartridge containing the preceding 
named file (zero if no cartridge ID is 
specified) . 
File Number 
File Name 

Cartridge ID 

File Number 



File Numbers and Names and Cartridge IDs ' 



-tv- 



. File Name 



.Cartridge ID 



Errors Detected 

The following DUP errors are detected in FILEQ: 
D41, D42, D43, D44, D45, D46, D47, andD48. 



DDUMP 

The DDUMP phase of DUP resides in part of the 
first or fifth 4K block of core storage, depending 
on whether the core size is 4K, 8K, 16K, or 32K. 
Only on a 32K machine does the DDUMP phase 
reside in the fifth 4K block of core storage. 

This phase is read into core storage the first 
time DCTL recognizes a DUMP control record 
and remains there on a 32K system as long as DUP 
is in control. This phase uses all the subroutines 
in DUPCO that are needed, e.g. , disk reading and 
writing. 



DD000 



Sector 
2 



This is the mainline of the DDUMP phase. It 
initializes the parameters of the subroutines, sets 
up the IOAR headers for the areas used for input/ 
output, and directs the execution of the subroutines. 



XG000 

This subroutine gets the words from the disk and, if 
the program is in DSF, the words are typed as to 
data, header indicator, or last data word. 
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xwooo 



Errors Detected 



This subroutine places the data or program in 
Working Storage. 



The following DUP error is detected in DDUMP: D50. 
DUMPLET/DUMPFLET 



XF000 

This subroutine formats the data into a system or 
data record to be punched. 



XP000 

This subroutine checksums, unpacks, and punches 
the record formatted by XF000 on either cards or 
paper tape as specified. 



XL000 



This subroutine prints the data or program on the 
principal print device. 



XC000 

This subroutine clears the print area as directed 
by XL000. 

XIQOO 

This subroutine inserts the data or program words 
into the print area as directed by XL000. 



Buffers Used By DDUMP 

PEBUF — 61-word buffer to hold printed output. 

THIS — 81 -word buffer to read in cards to check 
to see if they are blank. 

NEXT — 111-word buffer from which the output 
is punched. 

LETAR — 322 -word buffer to be used to get data 
from disk. 

SDBUF — 320-word buffer to be used to place data 
in Working Storage. 



This phase of DUP prints the contents of the Location 
Equivalence Table (LET) and/or the Fixed Area Lo- 
cation Equivalence Table (FLET) in an easily readable 
format on the principal print device. The extent of 
the dump depends on the setting of the following three 
DUPCO switches: 

LETSW . When this switch is positive, both LET 
and FLET are to be dumped; when negative, only 
FLET is dumped. 

DRIVE . When this switch is negative, LET and/ 
or FLET from all cartridges are dumped; when not 
negative, LET and/or FLET is dumped from the 
cartridge specified only. 

NAMSW. If this switch is on, only the LET or 
FLET entry corresponding to the name in #NAME 
is printed. 

One sector of LET/FLET is printed per page. 
Each sector of LET/FLET dumped is preceded by 
two lines of header information. The first header 
line contains the contents of the following locations 
from COMMA/DCOM: #CIDN, $FPAD, #FPAD, 
#CIBA, #ULET, and #FLET. 

Following this line is a second header line that 
reflects information concerning the LET/FLET 
sector being dumped, i.e., the 

sector number (SCTR NO. ), 

User Area/Fixed Area (UA/FXA) , 

words available (WORDS AVAIL), and 

chain address (CHAIN ADR). 

Following these two header lines are the LET/ 
FLET entries. Twenty-one lines of entries are 
printed, made up of five entries per line but se- 
quenced by column. 

Once LET and/or FLET have been dumped ac- 
cording to LETSW, DRIVE, and NAMSW, DUMPLET 
prints a terminal message and exits to the REST 
subroutine in DUPCO. 

Buffers Used By DUMPLET/DUMPFLET 

PRNTA — 61-word buffer in UPCOR used for 
printing a line. 

LETAR — 322-word buffer in UPCOR used for 
reading a sector of LET/FLET. 
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DELETE 

The DELETE phase removes programs and data 
files from either the User or Fixed Area, along 
with their corresponding LET/FLET entries. 

DCTL passes control to DELETE after having 
read a DELETE control record and having found 
the specified entry in LET/FLET. This sector 
of LET/FLET is left in the buffer LETAR with 
DELSW pointing to the location previous to the 
specified entry. DBADR is set with the User or 
Fixed Area disk block address of the program to 
be deleted. 

DELETE compresses LET/FLET by the number 
of words made available by the deleted entry. If 
the deletion is to be from the Fixed Area, the 
specified entry is replaced by a 1DUMY entry of 
the same size. If there are adjacent 1DUMY en- 
tries, they are combined to form a single 1DUMY 
entry and FLET is compressed by 0, 3, or 6 words 
depending upon whether there are 0, 1, or 2 adjacent 
1DUMY entries. 

If the deletion is to be from the User Area, the 
amount of the compression of LET is dependent 
upon the number of words made available by the 
specified LET entry. This number varies since 
DSF programs with multiple entries may be stored 
in the User Area. As in the case of FLET, adjacent 
1DUMY entries may cause additional compression 
of 3 or 6 words. 

The packing of LET/FLET begins in the sector 
containing the entry to be deleted and continues 
throughout the remainder of LET/FLET. Since 
multiple entries must reside in a single LET sector, 
they are moved across a LET sector boundary only 
when room exists in the previous sector for all the 
entry points. LET is packed until a DCI program 
or data file is encountered. If a 1DUMY entry pre- 
cedes this entry, the 1DUMY entry is updated to 
reflect the number of disk blocks required to make 
the DCI program or data file start at a sector 
boundary after it is moved the appropriate number 
of sectors. If a 1DUMY entry did not precede the 
DCI program or data file, one of the appropriate 
size is inserted, if required, to sectorize the DCI 
program or data file. The shrinkage or packing 
continues until the last 1DUMY entry of LET is 
found. 

Packing of the User Area begins with the sector 
containing the program to be deleted. Subsequent 
DSF programs are shifted by disk blocks into the 



area made available until a DCI program or data 
file is encountered. If the User Area is being 
packed by an amount equal to or greater than one 
sector, the remaining programs are moved by 
whole sectors. 

After all required disk movement of the specified 
DELETE operation is complete, DELETE prints a 
terminal message to signify completion. 

Buffers Used By DELETE 

LETAR — used for storage of LET/FLET sectors. 
Up to 2 sectors may reside in core storage with 
the addresses of the first word of each saved in 
DE918 and DE919. 

SDBUF — used to process the User Area. Two or 
eight sectors of core storage are used depending 
upon core size. 

Errors Detected 

The following DUP errors are detected in DELETE: 
D70, D71, andD72. 



DEFINE 

To initially provide a Fixed Area on a system 
cartridge or to increase its size, the Core Image 
Buffer (CIB), LET, and the User Area are moved 
toward and partly into Working Storage. Working 
Storage is reduced by the increased size of the 
Fixed Area. The sector address of the CIB is 
updated in DCOM and the Resident Image on the 
updated system cartridge. If a Fixed Area is 
defined on a non-system cartridge, LET is not 
shifted because it precedes the Fixed Area sector 
address. 

To decrease the size of the Fixed Area on a 
system cartridge, the Core Image Buffer (CIB), 
LET, and the User Area are moved away from 
Working Storage and into a part of the existing 
Fixed Area. Working Storage is increased by the 
amount of the decrease in the size of the Fixed Area. 
DCOM and the Resident Image on the updated 
system cartridge are updated with the new sector 
address of the CIB. If the size of the Fixed Area 
is decreased on a non-system cartridge, LET is not 
shifted, as it precedes the Fixed Area sector address. 
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To delete the FORTRAN Compiler and/or the 
Assembler Program from a system cartridge, all 
succeeding programs and special purpose areas on 
the disk are moved away from Working Storage 
toward the voided area. Working Storage is in- 
creased by the size of the voided program(s). 

Once the FORTRAN Compiler and/or the Assem- 
bler Program have been eliminated, neither can be 
restored without an initial load of the disk cartridge, 
including all the programs in the User or Fixed Area. 

DEFINE determines if a system or non-system 
cartridge is being processed by testing the cartridge 
ID sector for the presence of the version and modi- 
fication level number, which is zero on non-system 
cartridges. 

If the FORTRAN Compiler and/or the Assembler 
Program are deleted, all SLET entries for that 
program(s) are cleared to zero. SLET is also 
revised to reflect the new sector addresses of 
those programs that are shifted. 

All entries in the Reload Table indicating SLET 
lookups requested by the deleted program(s) are 
removed and the remaining Reload Table entries are 
packed together. The revised Reload Table is then 
reprocessed to generate new sector addresses where 
necessary in the monitor system programs. 



Buffers Used By DEFINE 
LETAR — a disk I/O buffer. 
SDBUF — a disk I/O buffer. 



Switches and Indicators 

FORSW — non-zero when the FORTRAN Compiler 
is to be deleted. 

ASMSW — non-zero when the Assembler Program 
is to be deleted. 

FXSW — non-zero when the Fixed Area is to be 
defined or modified. 

DATSW — indicates the disk block adjustment of 
the Fixed Area. 

NEGSW — non-zero when the Fixed Area is to be 
decreased. 



Errors Detected 

The following DUP errors are detected in DEFINE: 
D80, D81, D82, D83, D84, D85, and D86. 



DEXIT 

This phase is brought into core storage and executed 
by the LEAVE subroutine in DUPCO. DEXIT per- 
forms the following functions: 

• Prints DUP error messages 

• Traps monitor control records and exits to the 
Supervisor 

• Links to the System Library program ADRWS 
for DWADR 

• Passes control to the Core Load Builder for 
STORECI 

• Returns control to MODIF when a modification 
includes changes to the System Library. 

• Exits to the Supervisor upon recognition of the 
INTERRUPT REQUEST key interrupt. 

DEXIT is called with an indirect branch via 
LEAVE . Following the branch instruction is a 
parameter that specifies the function to be per- 
formed by DEXIT. 

If the parameter is a positive integer, DEXIT 
prints a DUP error message. The message printed 
corresponds to the integer parameter. 

If the parameter is zero, DEXIT moves a. trapped 
monitor control record from the buffer CRBUF to 
the Supervisor buffer @SBFR. $CTSW in COMMA 
is set to minus one (/FFFF) to indicate to the Super- 
visor that the next monitor control record has already 
been read. 

DEXIT checks to see if control should be returned 
to the System Maintenance program, MODIF. If 
#MDF2 in DCOM is non-zero, DEXIT reads DUP 
phase 18 into core storage and transfers to it. This 
phase contains part of MODIF, written on this sector 
when MODIF was last in control. In this manner 
MODIF is able to use DUP to delete an old version 
of a program or subroutine from the System Library, 
and then use DUP to store the new version. 
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If control is not given to MODIF, DEXIT trans- 
fers to $EXIT in the Skeleton Supervisor. 

If the parameter is minus two (-2), the interrupt 
caused by the INTERRUPT REQUEST key is recog- 
nized, causing the Supervisor to read records from 
the principal input device until the next JOB monitor 
control record is encountered. DEXIT exits via the 
$DUMP entry point in the Skeleton Supervisor with 
a dump format code of minus two (-2). 

If the parameter is minus three (-3), DEXIT 
transfers control to the Core Load Builder so that 
the DSF program currently in Working Storage can 
be converted to core image format for the STORE CI 
operation. Before DEXIT transfers control to phase 
O/l of the Core Load Builder, the area in core 
storage bounded by IOADR and the end of core stor- 
age is written to DUP phase 13 (UPCOR). DUP 
phase 17 (PRE CI) restores this area to core stor- 
age after the DCI program has been moved to the 
User or Fixed Area. 

If the parameter is minus four (-4), DEXIT 
initiates a CALL LINK to the System Library pro- 
gram ADRWS to complete the DUP DWADR oper- 
ation. DEXIT enters the Skeleton Supervisor at 
the $LINK entry point with the name ADRWS speci- 
fied in name code. The ADRWS program initializes 
the Working Storage sector addresses on the 
cartridge whose logical drive code is found in 
#TODR in DCOM. ADRWS causes control to be 
returned to DUP by placing a dummy DUP moni- 
tor control record into the Supervisor buffer @SBFR 
before returning control to the Skeleton Supervisor 
via the $EXIT entry point. 

All DEXIT functions write DUP's DCOM buffer to 
sector @DCOM on the master cartridge before 
exiting. 

Buffers Used By DEXIT 

CATCO — used to write DCOM on sector @DCOM of 
the master cartridge. The buffer size is 112 
words. 

IOADR ~ used to write UPCOR on DUP phase 13. 
The buffer size is approximately 1528 words. 

B — used to read phase 0/1 of the Core Load 
Builder into core storage. This read is exe- 
cuted from core locations 32-39. Approximately 
480 words are read. 



@SBFR - /0140 — used to read the MODIF phase 
(DUP phase 18) into core storage. This read 
is executed from core locations 32-39. The 
number of words read is 320. 



2501/1442 CARD INTERFACE (CFACE) 

This phase serves as an interface between DUP 
programs and the system device subroutine for 
card I/O. CFACE consists of four subroutines; 
they are listed below along with their primary 
functions: 

GETHO — Reads a card and converts from IBM 
Card Code to unpacked EBCDIC. 

GETBI — Reads a binary card. 

PACKB — Converts from card binary (1 column 
per word) to packed binary (4 columns per 3 
words), with checksumming. 

PCHBI — Punches a card from an 80-word buffer. 

The phase has four entry points, one correspond- 
ing to each of the functions listed above. Each sub- 
routine is entered by an indirect BSI instruction to 
the symbolic name listed above. Upon entry to each 
subroutine, the registers and status conditions of 
the calling program are saved using the ENTER 
subroutine in DUPCO. The PHIDM subroutine in 
DUPCO records the phase identification of CFACE. 

Upon completion of the required function and 
prior to returning to the calling program, the orig- 
inal conditions of the calling program are restored 
using the RTURN subroutine in DUPCO. 

GETHO 

This subroutine is used by DCTL to read DUP control 
records. The system device routine for the 2501 or 
the 1442 is used to read the card. An 81 -word buffer 
specified by CRBUF in CATCO is used for card input. 
GETHO examines each card for either //, *S, or *D 
in columns 1 and 2. If this information is not found 
in the first two columns of the card, the subroutine 
returns immediately to DCTL. In this way non-DUP 
control records can be bypassed at maximum card 
speed without using a double buffering technique. 
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If //, *S, or *D is found in columns 1 and 2, the 
subroutine loops till the whole card is read, then 
converts it from IBM Card Code to unpacked 
EBCDIC using the system conversion subroutine 
CDCNV. 

GETHO packs the unpacked EBCDIC data from 
the 81 -word input buffer to a 41 -word packed 
buffer specified by PEBUF. 

The subroutine then exits to DCTL. 



GETBI 

This subroutine reads a binary card into an 81-word 
buffer specified by THISo The system device sub- 
routine for the 2501 or 1442 is used to read the card. 



PACKB 

This subroutine converts card binary (one word 
per column) in an 81 -word input buffer (NEXT) 
to packed binary (four columns per three words) 
in a 55-word output buffer (NEXT). The packed 
data overlays the unpacked data. 

After packing, the checksum of the 54 words 
is verified. If the checksum is correct, the sub- 
routine returns to the calling program. A check- 
sum error causes an exit to LEAVE in DUPCO 
with an error parameter. 



PCHBI 



PEBUF — 41-word buffer used to hold the packed 
EBCDIC control record, converted from the 
unpacked EBCDIC in CRBUF. 



KEYBOARD INTERFACE (KFACE) 

KFACE serves as an interface for DUP programs 
when the principal input device is the Keyboard. 
KFACE is used by DCTL to read DUP control 
records from the Keyboard. 

The PHIDM subroutine in DUPCO is used to 
record the KFACE phase identification. The; ENTER 
subroutine in DUPCO is used to save the conditions 
of the calling program. A control record of up to 
80 characters is read and converted from Kesyboard 
code to unpacked EBCDIC by the system device 
subroutine for the Keyboard. 

An EOF character causes the termination of 
input and the filling of the remainder of the buffer 
with blanks or a word count of 80, whichever' is first. 

The record is read into the 81-word buffer speci- 
fied by CRBUF in CATCO in unpacked EBCDIC, 
then converted to packed EBCDIC and stored in the 
41 -word buffer specified by PEBUF in CATCO. The 
RTURN subroutine in DUPCO is used to restore the 
conditions of the calling program. 



Buffers Used By KFACE 

CRBUF — 81-word input buffer used to hold a 
control record in unpacked EBCDIC. 



This subroutine, using the system device subrou- 
tine for the 1442, punches a card from an 81 -word 
buffer specified by NEXT. 



PEBUF — 41-word buffer used to hold the packed 
EBCDIC control record, converted from the 
unpacked EBCDIC in CRBUF. 



Buffers Used By CFACE 

THIS — 81-word input buffer used by GETBI for 
reading binary records. 

NEXT — 81-word buffer used by PACKB for pack- 
ing binary records (4 columns per 3 words). 
The packed data overlays the unpacked data. 
Also used by PCHBI for outputting to the punch. 

CRBUF — 81-word input buffer used by GETHO 
for reading control records in unpacked 
EBCDIC. 



1134/1055 PAPER TAPE INTERFACE (PFACE) 

This phase serves as an interface between DUP 
programs and the system device subroutine for 
paper tape I/O. PFACE consists of four subrou- 
tines; they are listed below along with their primary 
functions: 

GETHO — Reads a paper tape record punched in 
PTTC/8 code and converts it to both unpacked 
and packed EBCDIC. 

GETBI — Reads a binary paper tape record. 
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PACKB — Converts from unpacked binary (two 
frames per word) to packed binary, with 
checksumming. 

PCHBI — Punches a binary paper tape record. 

The phase has four entry points, one corre- 
sponding to each of the functions listed above. 
Each subroutine is entered by an indirect BSI 
instruction to the symbolic name listed above. 
Upon entry to each subroutine, the registers 
and status conditions are saved using the ENTER 
subroutine in DUPCO. Another DUPCO subrou- 
tine, PHDDM, modifies the phase identification 
with the PFACE identification. 

Upon completion of the requested function and 
prior to exiting to the calling program, the orig- 
inal conditions of the calling program are restored 
using the RTURN subroutine in DUPCO. 



GETHO 



The word count preceding each binary paper tape 
record is punched into a single frame, and is read 
separately from the body of the record. After the 
word count is read, it is checked for validity. If it is 
valid, it is used to read the record that follows. 
If it is not valid, the next frame is read to deter- 
mine if it is a word count. In this way, delete 
characters and other special codes may appear 
between binary records or between a control record 
and the first binary record. 



PACKB 

This subroutine packs the binary record as read by 
GETBI into normal binary data. The packed data 
overlays the unpacked data. 

After packing, the checksum of the words read 
is verified. If the checksum is correct, the sub- 
routine returns to the calling program. A check- 
sum error causes an exit to LEAVE in DUPCO with 
an error parameter. 



This subroutine is used by DCTL to read DUP 
control records. The system device subroutine 
for the 1134/1055 is used to read the record. An 
81-word buffer specified by CRBUF in CATCO is 
used to contain each record read. All conversion 
from PTTC/8 code to EBCDIC is performed by 
the system device subroutine. When the control 
record has been read, it is converted to packed 
EBCDIC within the 41-word buffer specified by 
PEBUF in CATCO. The subroutine then exits 
to DCTL. 



GETBI 

This subroutine reads a binary paper tape record 
into a 109-word buffer specified by THIS in CATCO. 
The system device subroutine for the 1134/1055 is 
used to read the record. 

Note that THIS and NEXT are reversed for each 
record read when reading binary cards. When 
reading paper tape DCTL places the address of the 
buffer having the lowest core address into THIS, 
since the reading of binary paper tape records 
requires an extended buffer. The system device 
subroutine reads each frame (eight bits of data) 
into one word of the buffer. 



PCHBI 

This subroutine uses the system device subroutine 
for the 1134/1055 to punch a binary paper tape 
record from a 109-word buffer specified by NEXT. 



Buffers Used By PFACE 

THIS — 109-word buffer used by GETBI for reading 
binary paper tape records. 

The two buffers THIS and NEXT, used for 
double buffering when reading binary cards , 
constitute one extended buffer when reading 
binary paper tape records. Double buffering 
is not used for binary paper tape records. 

NEXT — 109-word buffer used by PCHBI for punch- 
ing binary paper tape records, consisting of 
THIS and NEXT taken as consecutive buffers. 

CRBUF — 81-word input buffer used to hold a control 
record in unpacked EBCDIC. 

PEBUF — 41 -word buffer used to hold the packed 
EBCDIC control record, converted from the 
unpacked EBCDIC in CRBUF. 
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PRE CI 



PC100 



This phase is read into core storage by the Core 
Load Builder after a core load has been built for 
a STORE CI function. This phase resides in the 
DUP overlay area. It moves the core load to the 
User Area or Fixed Area before restoring DUP 
phase 13 (UPCOR). Since UPCOR is not available 
to PRECI, copies of the DUPCO subroutines PHH), 
PHROM, GET, and PUT have been incorporated 
into PRECI. 

PRECI is composed of five sections or logical 
parts — PC000, PC040, PC100, PC180, and PC240. 



PC000 

This is the entry point to PRECI from the Core 
Load Builder. DCOM from the master cartridge 
is read into PRE CI' s work area, as is the core 
image header from the CIB. If the inhibit DUP 
function switch ($NDUP) has not been set by the 
Core Load Builder, PRECI proceeds. Otherwise, 
the PC240 section is used to exit to DCTL after indi- 
cating an error has occurred. 

DCOM is used to determine the logical drive 
code of the destination drive, as well as the start- 
ing sector address to which the program is to be 
moved. From the core image header the total 
length of the core load in sectors is determined. 
A check is then made to determine if the program 
can be contained in the User Area or Fixed Area. 
If the core load is too large, the PC240 section is 
used to exit to DCTL after indicating an error has 
occurred. 



PC040 

This section moves LOCAL/SOCAL sectors (if 
any) from Working Storage to their position at the 
end of the core load after it has been moved to the 
User Area or Fixed Area. The Working Storage 
sector address from which the LOCALs/SOCALs 
are moved includes an adjustment for Working 
Storage files when they are present. LOCALs/ 
SOCALs are moved to the User or Fixed Area one 
sector at a time. The number of sectors required 
for Working Storage files and the number of LOCAL/ 
SOCAL sectors are obtained from the core image 
header. 



This section moves that part of the core load (in- 
cluding the core image header) that resides in the 
CIB to its destination in the User Area or Fixed 
Area. The length of the program (in words) and 
the starting address of the core load are used to 
control the number of sectors moved from the CIB 
to the User Area or Fixed Area. The core image 
header also indicates if the core load exceeds the 
4K boundary; i.e. , the core load's load address 
plus the number of words in the core load produces 
a number greater than 4095. 

The core load residing in the CIB is moved to 
the User Area or Fixed Area four sectors at a time. 
This move continues until the CIB sector containing 
that part of the core load that resides at location 
4095 has been moved. 

PC180 

This section moves that part of the core load that 
resides in core storage above location 4095 to the 
User or Fixed Area. The last sector of the core 
load written to the User or Fixed Area from the 
CIB is read into core storage so as to be contiguous 
with the part of the core load residing in core, i.e. , 
above location 4095. The remainder of the core 
load, starting with the first word read into core 
storage from the User or Fixed Area, is then writ- 
ten to the User or Fixed Area, starting at the sector 
read into core storage. 

PC240 

This section restores DUP phase 13 (UPCOR), 
DCTL (phase 2), and then exits to DCTL. Before 
exiting to DCTL, however, termination data is 
placed in the DCOM buffer in CATCO, and in CATCO 
itself. The interrupt locations in low core storage 
are restored for DUP operation, and phase switches 
are cleared in order to ensure that DDUMP and 
STORE are reloaded from disk. If any errors have 
been detected during PRECI operation, the DUP 
error message number is communicated back to 
DCTL through CIERR in CATCO. 



Buffers Used By PRECI 

The disk I/O buffer used to move all parts of the 
core load to the User Area or Fixed Area is located 
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at BUF7. All references are direct, rather than 
indirect through SDBUF in CATCO, since UPCOR 
is not in core storage during the operation of PRE CI. 



DUP DIAGNOSTIC AIDS 



GENERAL 

DUP has provided a selective, dynamic dump of 
various core storage areas to facilitate problem 
analysis. The core dumps are under the control 
of column 35 of individual DUP control records. 
In general, to obtain a dump of a particular DUP 
phase, column 35 should contain the phase ID 
number of that phase. If column 35 contains 
zero, all DUP phases associated with the function 
named on the control record yield a core dump, 
starting with the execution of DCTL. The column 
35 codes and the corresponding DUP phase yielding 
core dumps are shown below. 



Code in column 35 



Phase(s) dumped 

All associated phases, starting 

with DCTL 
DCTL 
STORE 
FILEQ 
DDUMP 
DUMPLET 
DELETE 
DEXIT 



The core dumps include the following: 

Disk I/O Areas — The buffer area used for the 
disk I/O operation, including the area into 
which DUP phases are read, is dumped. The 
number of words dumped is dependent on the 
number of words read or written. 

Buffer Areas — The buffers between BUF4 and 
PRPNT are dumped in DCTL execution. This 
dump occurs when the LET search begins, 
when the LET search on one cartridge is 
complete and the next cartridge LET search 
begins, and before the required DUP phase 
(STORE, DUMP, or DELETE) is read. 



CATCO — This area of core storage is dumped in 
conjunction with any dump mentioned above. 

If a dump (or dumps) is desired during CCAT 
execution, the next to the last card (i. e. , the last 
type A card) of DUPCO should be removed before 
reloading this phase with a System Loader reload 
function. This change in DUPCO causes all possible 
core dumps within DUP to occur regardless of the 
contents of column 35 in any DUP control record. 

Core dumps are not allowed when the DEFINE or 
PRE CI phase is in execution. The System Core 
Dump program uses the CIB to save the contents of 
core storage, and, since the CIB moves during a 
DEFINE operation and the core load to be stored by 
PRECI is in the CIB, serious errors occur if core 
dumps are taken when executing either DEFINE or 
PRECI. 



PRECI 

When PRECI is entered from the Core Load Builder, 
the phase identification word in COMMA ($PHSE) is 
initially set to /0011 by the PHIDP subroutine in 
PRECI. As each subroutine of PRECI is executed, 
$PHSE is modified by PHDDP as follows: 



Subroutine in execution 

PC040 
PC100 
PC180 
PC240 



Contents of $PHSE 

/1011 
/2011 
/3011 
/4011 



In addition, the second hexadecimal digit of $PHSE 
is modified by the IDMP subroutine in PRECI each 
time a disk I/O operation is performed. 



Digit 2 of $PHSE 

1 
2 



Disk I/O Operation 

Read from Disk 
Write to Disk 



STORE 

When STORE is entered from DUP control, the 
phase identification word in COMMA ($PHSE) is 
initially set to /0003 by the PHED subroutine in 
DUPCO. As each subroutine of STORE is exe- 
cuted, $PHSE is modified by PHID as follows: 
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Subroutine in execution Contents of $PHSE 



IOWS 

WD000 

DOLET 

UPDCM 

ST700 

SNOFF 



/1003 
/2003 
/3003 
/4003 
/5003 
/6003 



In addition, the second hexadecimal digit of 
the phase identification is modified by the PHIDM 



subroutine in DUPCO each time an I/O operation 
is performed. 



Digit 2 of $PHSE 

1 

2 
4 
5 



I/O operation 

Read from Disk 

Write to Disk 

Convert Binary to EBCDIC 

Print Terminal Message 

Read Binary Cards 

Read Binary Paper Tape 
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SECTION 10. ASSEMBLER PROGRAM 



FLOWCHARTS 



General: 


ASM01 


Phase 0: 


ASM02 


Phase 1: 


ASM03 


Phase 1A: 


ASM04 


Phase 2: 


ASM 05 


Phase 2A: 


ASM 06 


Phase 3: 


ASM07 


Phase 4: 


ASM 08 


Phase 5: 


ASM 09 


Phase 6: 


ASM 10 


Phase 7: 


ASM 11 


Phase 7A: 


ASM 12 


Phase 8: 


ASM 13 


Phase 8A: 


ASM 14 


Phase 9: 


ASM15-ASM17 


Phase 10: 


ASM18 


Phase 10A: 


ASM 19 


Phase 11: 


ASM20 


Phase 12: 


ASM21 


ERMSG: 


ASM22 


@ARCV 


ASM23 


@APCV: 


ASM24 



The Assembler Program is designed to translate the 
statements of a source program written in 1130 
Assembler Language into a format that may be 
dumped and/or stored by DUP or executed directly 
from Working Storage. 

Basically, the functions of the Assembler are: 

1. Convert the mnemonic to machine language 
(except for Assembler control records). 

2. Assign addresses to statement labels. 

3. Insert the format and index register bits into 
the instruction, if applicable. 

4. Convert the instruction operands to addresses 
or data. 



INTRODUCTION 



The Assembler Program is structurally divided into 
two parts, the resident portion and the overlay por- 
tion. The resident portion consists of the Assembler 
Communications Area (ASCOM), part of phase 0, 



phase 9, and the phase 9 Communications Area 
(PHSCO). All of the other phases are called into 
core storage as overlays. 

The Assembler Program is functionally divided 
into two parts, pass 1 and pass 2. The source pro- 
gram is read and processed, one statement at a 
time, during each of the two passes. During pass 1, 
the source program is read into core storage from 
the principal I/O device. Unless the user specifies 
by control record that two-pass mode is in effect, 
the source program is stored on the disk, from 
which it is reentered for pass 2 processing. If two- 
pass mode is specified or required, the source pro- 
gram is reentered via the principal I/O device for 
pass 2 processing. (If a list deck or paper tape 
object program is desired, the assembly must be 
made in two-pass mode. ) 



PROGRAM OPERATION 



When the Monitor Control Record Analyzer detects 
an ASM monitor control record, it reads the first 
sector of the Assembler Program (phase 0) into 
core storage and transfers control to it. 

Phase reads into core storage all the subrou- 
tines required during assembly processing for I/O, 
and phase 9. The word counts and sector addresses 
of all the buffers and major overlay phases are init- 
ialized in ASCOM and in phase 9, and the boundary 
conditions are set for the Symbol Table. Phase 1 
is then fetched and control is passed to it. 

Phase 1 reads and analyzes control records, set- 
ting the appropriate switches in ASCOM for the options 
specified. Upon detection of the first non-control 
record, phase 1A is fetched and given control. 

Phase 1A initializes the core addresses for the 
buffers, then fetches and transfers control to phase 
2 to start statement processing. 

Statement processing is performed by an op code 
search in phase 9 and a transfer through a branch 
table (that precedes every major overlay) to the 
overlay phase currently in core storage. If the re- 
quired overlay phase is in core storage, execution 
of the phase proceeds. If it is not in core storage, 
the branch table causes a return to phase 9 to fetch 
the required overlay phase. The op code search is 
performed again and control is passed to the overlay 
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phase., When the overlay phase completes the nec- 
essary processing, another record is read and the 
entire process is repeated. 

All overlays exit by branching to either the 
LDLBL or the PALBL subroutines within phase 9 and 
then to STRT9 (the op code search). A branch is 
taken to LDLBL when the statement just processed 
is permitted to have a label. A branch is taken to 
PALBL when a label is not permitted or is to be ig- 
nored. Both LDLBL and PALBL branch to the 
RDCRD subroutine (within phase 9) to read the next 
record just prior to their return to the overlay phase 
that called them. 



ASSEMBLER COMMUNICATIONS AREA 

The Communications Area (ASCOM) consists of all 
the indicators and switches referenced by more than 
one phase of the Assembler Program. All communi- 
cation between phases is done through ASCOM. 
ASCOM resides in core storage following DISKZ and 
preceding the Overlay Area. 

Refer to the program listings for details regarding 
the contents of ASCOM. 



OVERLAY AREA 

The Overlay Area is the area in core storage into 
which the statement processing (overlay) phases are 
loaded as required. Phase is initially loaded into 
this area by the Monitor Control Record Analyzer 
(see Section 6. Supervisor ). Phases 1, 1A, and 2 
are sequentially loaded into this area at the start of 
passes 1 and 2. Phases 2A, 5, 6, 7, 7A, 8, 8A, 
@ARCV, and @APCV are loaded into this area during 
passes 1 and 2 as they are required to process 
specific mnemonics and constants, to handle output 
options, etc. Phase 12 is loaded into this area when 
the END statement is encountered in passes 1 and 2. 
Phase 4 is loaded into this area at the completion of 
pass 2. Phases 3, 9, 10, 10A, 11, and ERMSG 
are not loaded into the Overlay Area. 

The Overlay Area resides in core storage follow- 
ing ASCOM and preceding phase 9. 

SYMBOL TABLE 



in the Symbol Table for each valid symbol defined 
in the source program. Each entry in the Symbol 
Table consists of three words. The first word con- 
tains the value of the symbol. Words 2 and 3 contain 
the symbol itself in name code. The following 
example shows the conversion of the symbol 'START' 
to name code for a Symbol Table entry: 



Symbol Toble Entry 




EBCDIC EBCDIC 

■ (hexadecimal) (binary) 

E2 II MO 0010 

E3 111 10 0011 

CI 11 ]00 0001 

D9 ll|oi 1001 

E3 11110 0011 



The Symbol Table is built starting at the high- 
addressed end of core storage. Entries are added 
to the Symbol Table (see below) until its lower limit, 
the end of the principal print device subroutine, is 
reached. If symbols are added to the Symbol Table 
after the in-core Symbol Table has been filled (i. e. , 
the lower limit has been reached), the overflow 
Symbol Table is saved, one sector at a time, in 
Working Storage on the disk. Note that Symbol 
Table overflow is possible only if the Assembler 
control record *OVERFLOW SECTORS reserving 
the required sectors on disk is present in the 
source program; otherwise, the assembly is ter- 
minated at the point of Symbol Table overflow. 



Third Entry Second Entry 



First Entry 



Symbol 

Value Symbol Name 



J L 



Low 
Core 



High T 



As the source program is read and processed in 
pass 1, the Symbol Table is built. An entry is made 



As the source program is again read and proc- 
essed in pass 2, the Symbol Table is searched each 
time a reference to a symbol is encountered. The 
in-core Symbol Table is searched first. If the sym- 
bol is not found in the in-core Symbol Table and 
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Symbol Table overflow has been written on disk, 
Phase 10A is fetched into core storage to perform 
the search of the overflow sectors. 

A binary search technique is used in the Symbol 
Table search. 



INTERMEDIATE I/O 



tains the address of the buffer in which a record is 
being processed. The other location (RDBFR+1) 
always contains the address of the buffer into which 
a record is being read. The RDCRD subroutine in 
phase 9, which interfaces with the principal I/O de- 
vice subroutine, exchanges the buffer addresses in 
RDBFR and RDBFR+1 after each record is read. 



During pass 1 of an assembly made in one-pass 
mode the source program statements are saved on 
disk for input to pass 2. Each source statement is 
saved starting at column 21 and ending with the 
rightmost non-blank column. As saved on disk each 
statement consists of a prefix word containing the 
number of words up to and including the prefix word 
for the following statement and the source statement 
packed two EBCDIC characters per word. 

The intermediate I/O is written on disk in Working 
Storage, starting at the first sector of Working 
Storage if no OVERFLOW SECTORS were specified, 
or starting at the first sector following the last sec- 
tor of Symbol Table overflow. 

If a LIST Assembler control record is not present 
in the source program, comments statements are not 
saved in the intermediate I/O. 

During pass 2 of an assembly in one-pass mode, 
the intermediate I/O is read into core storage, one 
sector at a time. The source statements are unpacked 
and placed into the two I/O buffers such that they are 
indistinguishable from statements read from the prin- 
cipal I/O device. 



DOUBLE-BUFFERING 



All card, paper tape, or Keyboard input to the 
Assembler Program is double-buffered, with one 
exception; if the assembly is being made in two-pass 
mode and the LIST DECK or LIST DECK E option has 
been specified, input during pass 2 is single- buffered 
to facilitate punching. 

The Assembler Program uses two 80-word buffers 
for double-buffering. While a record is being read 
into one buffer, the record in the other buffer is being 
converted and processed. 

Two locations in ASCOM are used to point to the 
two input buffers. One location (RDBFR) always con- 



PHASE DESCRIPTIONS 



PHASE 



Phase serves as the Assembler Program's loader. 
First, the Communications Area (ASCOM) is initial- 
ized by phase 0, and the required I/O device subrou- 
tines are fetched into core storage. Phase 9, the 
resident portion of the Assembler Program, is also 
fetched into core storage. Phase initializes the 
sector addresses and word counts of the various 
buffers utilized by the Assembler Program, and the 
boundary conditions for the System Symbol Table 
are established. Phase then fetches phase 1 into 
the overlay area and transfers control to it. 

The switches $NDUP and $NXEQ (in COMMA) are 
set non-zero to inhibit program execution and/or 
DUP functions in the event the assembly is termina- 
ted before completion. 

A Master Overlay Control subroutine (P0130), the 
subroutine interfacing with DISKZ (DISK1) , and the 
index register restoring subroutines (STXRS and 
LDXRS) are part of phase and remain in core 
storage during the entire assembly; the rest of phase 
is overlaid by phase 1. The Master Overlay Control 
subroutine performs the fetching of all the overlay 
phases and transfers control to the phase just read 
into core storage. 



PHASE 1 

Phase 1 reads, analyzes, and lists the Assembler 
control records. As each control record is analyzed, 
the various options specified by the control record 
are indicated in the Assembler Program's Communi- 
cations Area (ASCOM). When the first non-control- 
type record is encountered, phase 1 transfers to the 
Master Overlay Control subroutine to fetch phase 1A 
and transfer control to it. 
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PHASE 1A 



PHASE 3 



Phase 1A determines the address of the DSF buffer 
and initializes its IOAR header information in the 
Assembler Program's Communications Area 
(ASCOM). If the principal input device is either the 
1134 Paper Tape Reader or the Keyboard, the cur- 
rent record is moved over 20 positions to the right 
and the read-in address is set for position 21 of the 
I/O area. 

The number of overflow sectors assigned is 
checked for a maximum of 32 and the adjusted Work- 
ing Storage boundary for the disk output of the source 
and object programs is initialized. Phase 1A then 
transfers control to the Master Overlay Control sub- 
routine to fetch phase 2, which begins statement 
processing. 



PHASE 2 

Phase 2 handles the processing of all ENT, ISS, 
LIBR, ABS, EPR, SPR, ILS, and FILE statements. 
These statements are header mnemonics and must 
appear as the first non- control-type statements if 
they are included in the source program. For this 
reason phase 2 is the first overlay phase loaded into 
core storage to begin statement processing. As each 
particular header mnemonic is processed, the nec- 
essary indicators are set in the Assembler Program's 
Communications Area (ASCOM). The ordering and 
compatibility of the various header mnemonics is 
checked, and the program header record information 
is built and saved in ASCOM. When a mnemonic not 
handled by phase 2 is detected, control is transferred 
to the op code search (STRT9) in phase 9. 



Phase 3 is called into core storage as part 1 of the 
Assembler Program's exit to the Supervisor. Due 
to the size of phase 3, it overlays part of phase 9 
instead of the Overlay Area. 

The options of printing, punching, or saving the 
Symbol Table, as requested by the user on Assembler 
control records, are performed. At the completion 
of the Symbol Table options processing, phase 4 is 
fetched into core storage and control is transferred 
to it. 



PHASE 4 

Phase 4 performs the final processing for the Assem- 
bler Program and is called into core storage by 
phase 3. If overflow sectors were specified by 
Assembler control record, and if Symbol Table over- 
flow occurred in assembling the program, the object 
program, which is residing on the disk, is moved 
back to the sector boundary at the start of Working 
Storage. Phase 4 then updates DCOM on all ready 
drives. The last record read by the Assembler Pro- 
gram, the record following the END statement, is 
moved to the Supervisor buffer. 

In terminating the assembly, phase 4 prints four 
sign-off messages: 



1. The number of errors flagged in the assembly 

2. The number of symbols defined 

3. The number of overflow sectors specified 

4. The number of overflow sectors required 



PHASE 2A 



Phase 4 then exits to the Skeleton Supervisor at the 
$EXET entry point. 



Phase 2A is called into core storage when a FILE 
statement is detected by phase 2. Phase 2 A is loaded 
by a flipper routine within phase 2 and overlays part 
of phase 2. Phase 2A obtains the file information 
from the FILE statement and builds the 7-word 
DEFINE FILE Table. At the completion of phase 2A 
processing, control is returned to the flipper routine 
in phase 2. The flipper routine restores the over- 
laid portion of phase 2 and branches to the op code 
search (STRT9) in phase 9. 



PHASE 5 

Phase 5 is called into core storage to process HDNG, 
ORG, BSS, BES, EQU, LIST, EJCT, or SPAC 
statements. These mnemonics are all non -imperative 
type statements requiring similar processing and 
are all grouped, therefore, in the same overlay 
phase. 
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PHASE 6 

Phase 6 processes all imperative instructions and 
the DC statement. Since these mnemonics are used 
most frequently, the processing for them was 
grouped into one overlay phase. 



scans and evaluates the operand field, one character 
at a time. The conversion subroutine contains a 
table of packed Console Printer codes and a table of 
packed 1403 Printer codes. The conversion is per- 
formed using an algorithm. 



PHASE 7 

The two mnemonics processed by phase 7 are 
XFLC and DEC. The conversion of the data in the 
statement operands to binary is handled in phase 
7A. Upon completion of the conversion, the data is 
formatted into the appropriate floating, fixed, or 
decimal format. 



PHASE 9 

The phase 9 communications area (PHSCO) consists 
of the entry addresses of the common subroutines 
within phase 9. Immediately following PHSCO is the 
op code search. 



STRT9 



PHASE 7A 

Phase 7A is fetched into core storage by a flipper 
routine within phase 7. Phase 7 A converts the man- 
tissa of a decimal integer, a fixed- or floating-point 
number to the binary equivalent. 

Phase 7A contains a scanning process that con- 
verts the operand to its binary equivalent and a post- 
scanning process that converts from powers of 10 
to powers of 2. 

The converted decimal data is saved in a buffer 
that is part of the flipper routine. When the conver- 
sion is completed, phase 7A returns to the flipper 
routine that restores phase 7 and transfers control 
to it. 



The op code obtained from the input record is saved 
in ASCOM. All possible op codes are resident in a 
table, which has for each op code a two-word indica- 
tor followed by a corresponding one- word machine 
language mnemonic. The op code search is per- 
formed by means of a table lookup. When a match 
is found, the corresponding machine language 
mnemonic is picked up and saved in OPCNT in 
ASCOM. Bits 13-15 of OPCNT form a branch table 
displacement. Using this displacement, an indirect 
branch is taken thru the table to the overlay prepared 
to process this op code. If the overlay is in core 
storage, execution proceeds. If it is not, a return 
is made to the op code search to fetch the required 
overlay phase into core storage. Control is then 
passed to the overlay and statement processing 
continues. 



PHASE 8 



Phase 8 processes the LIBF, CALL, EXIT, LINK, 
EBC, DSA, and DN statements. The processing of 
the program linking mnemonics — LIBF, CALL, 
EXIT and LINK — is combined with the processing 
of the data definition mnemonics — EBC, DSA, and 
DN — since otherwise they would constitute two 
small phases. This is satisfactory in terms of 
assembly time since EBC, DSA, and DN are not 
frequently used mnemonics. 



BTHEX 

BTHEX is a binary-hexadecimal conversion subrou- 
tine. The binary data is entered in the accumulator 
left-justified, and the hexadecimal output is stored 
by index register 1. The number of characters to be 
converted is in index register 2. 



PHASE 8A 



B4HEX 



Phase 8A processes the DMES statement. The DMES 
processing is performed by a scanning subroutine and 
a conversion subroutine. The scanning subroutine 



The B4HEX subroutine is entered when four hexadec- 
imal output characters are desired. Index register 2 
is set to four and a branch is made to BTHEX. 
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SCAN 

The SCAN subroutine collects the elements of the 
operand field, character by character, performs 
any arithmetic functions necessary, and evaluates 
the operand. 



GTHDG 



to EBCDIC blanks, the input buffer addresses in 
ASCOM are exchanged, and a branch is made to the 
principal input device subroutine to read a record. 
Index register 1 is set to point at the current input 
buffer and control is transferred back to the calling 
program. 

If the record previously read was a monitor con- 
trol record, phase 4 is fetched into core storage and 
control is transferred to it. 



GTHDG is the new page subroutine. Branches are 
made to the principal print subroutine to skip to 
channel 1, and print the heading as specified in the 
last HDNG statement encountered. 



LDLBL 

The LDLBL subroutine scans the label field of the 
statement. In pass 1, valid labels are added to the 
Symbol Table if they do not already appear mere. 
The record is saved in the intermediate output buffer 
by INT1 and a branch is made to read the next record 
(RDCRD). When the next record is in core, a check 
is made for the last card. If the last card has been 
detected, a branch is made to the principal conver- 
sion routine (CVADR), and control is returned to 
the calling program. 

In pass 2, the record is listed, if a listing has 
been requested or the record is in error. The next 
record is fetched and control is returned to the 
calling program. 



PALBL 

The PALBL subroutine is a secondary entry to the 
LDLBL subroutine. PALBL is entered when a label 
is not permitted on a statement being processed. 



P9MVE 

The P9MVE subroutine moves the input record from 
the input buffer to the print buffer. As it moves the 
record, each character is checked for validity. At 
the completion of the move, a branch is made to the 
principal print device subroutine to list the record 
and control is returned to the calling program. 



INT1 

INT1 is the subroutine used in pass 1 to pack the in- 
put record into two EBCDIC characters per word and 
save it in the intermediate output buffer. INT1 is 
overlaid by phase 11 for pass 2 processing. INT2 is 
the entry address for phase 11 during pass 2. 



PHASE 10 

Phase 10 consists of two subroutines: DTHDR and 
WRDFO. Phase 10 is fetched by phase 12 in pass 2 
processing. Phase 10 overlays that section of phase 
9 dealing with the inserting of labels into the Symbol 
Table. 



DTHDR 



GETER 

A branch is made to GETER when an error occurs 
during the assembly. GETER fetches the error mes- 
sage phase (ERMSG) into the first disk buffer (BUFI). 



DTHDR enters a data header into the object program 
output in disk system format (DSF) when required and 
completes the previous data header. 



WRDFO 



RDCRD 

RDCRD is the interface subroutine for the principal 
input device subroutine. The input buffer is cleared 



This subroutine writes one sector of disk igystem for- 
mat (DSF) output when the DSF buffer is full. After the 
sector is written, those words past the 320th word of 
the buffer are moved back to the beginning of the buffer. 
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In the event the buffer is not full and WRDFO is 
entered from phase 12 END statement processing, 
the DSF buffer is written to Working Storage. 



PHASE 10A 

Phase 10A is fetched into core storage whenever 
necessary to handle Symbol Table overflow. When a 
symbol is to be added to an overflow sector in pass 1 
or when the overflow sectors are to be searched 
for a symbol in pass 2, phase 10A is called. Phase 
10A overlays the INT1 subroutine in phase 9 when 
called during pass 1; it overlays phase 11 (the INT2 
subroutine) when called in pass 2 of an assembly in 
one-pass mode. 



PHASE 11 

Phase 11 is fetched into core storage in pass 1 during 
phase 12 END statement processing if the assembly 
is in one-pass mode. The function of phase 11 is to 
read the source statements from the disk during 
pass 2. The source statements saved in pass 1 are 
read back onto core storage in pass 2 in such a way 
that they are indistinguishable from statements read 
from the principal I/O device. 



PHASE 12 



the source statement buffer. If the source program 
is a type 1 or 2 (a mainline), the execution address, 
i. e. , the END statement operand, is saved in 
ASCOM and in the source statement buffer. The last 
sector of DSF output is written to the disk and the 
disk block count of the program is saved in ASCOM. 
Phase 12 then fetches phase 3 and transfers control 
to it. 



ERMSG 

ERMSG is called by the GETER subroutine within 
phase 9 when an error occurs during the assembly 
process. It is loaded into the first disk buffer (BUFI). 
A list of error messages is contained within ERMSG. 
This list is referenced by index register 2, which 
contains the appropriate error code at the time of 
entry to ERMSG. The error message is printed and 
control is then returned to GETER. 



@ARCV 

The Assembler Program's card conversion subrou- 
tine converts IBM Card Code to EBCDIC on input 
from the 2501 Card Reader or from the 1442 Card 
Read Punch, Models 6 and 7. The conversion is 
handled by a direct table access method, utilizing a 
256 EBCDIC character table. 



In pass 1, phase 12 builds the program header record 
in the DSF buffer. Several counters are reinitialized 
in ASCOM and the buffer pointers are reset for disk 
system format (DSF) output. Phase 10 is fetched 
into core storage. 

If the assembly is in two-pass mode, phase 1 is 
fetched and control is passed to it. If the assembly 
is in one-pass mode, the END statement is saved in 
the intermediate I/O buffer and the buffer is written 
to the disk. Phase 11 is fetched into core storage 
and the first sector of intermediate I/O is read into 
the first disk buffer (BUFI). A branch is then made 
to phase 11 to transfer the first statement from the 
intermediate I/O buffer to the source input buffer. 
Phase lis then fetched onto core storage and con- 
trol is transferred to it. 

In pass 2, phase 12 branches to DTHDR to build 
the end-of-program data header. If the source pro- 
gram is a type 3, 4, 5, 6, or 7 (not a mainline), an 
execution address of zero is saved in ASCOM and in 



@APCV 

The Assembler Program's punch conversion subrou- 
tine handles both the conversion and the punching of 
data on card output options. The punch conversion 
subroutine is fetched into the overlay area to per- 
form the LIST DECK and LIST DECK E output 
options. It overlays the op code search (STRT9) 
in phase 9 to perform the PUNCH SYMBOL TABLE 
output option. 



CORE LAYOUT 



Figure 14, panel 1 shows the layout of the contents 
of core storage after phase of the Assembler Pro- 
gram has been fetched and given control by the Mon- 
itor Control Record Analyzer. 

Figure 14, panel 2 shows the layout of the con- 
tents of core storage during pass 1. 
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Figure 14, panel 3 shows the layout of the con- 
tents of core storage during pass 2 of an assembly 
in two-pass mode. 



Figure 14, panel 4 shows the layout of the con- 
tents of core storage during pass 2 of an assembly 
in one-pass mode. 



CD 


© 


© 


© 


© 


© 


COMMA, 

Skeleton 

Supervisor 


COMMA, 

Skeleton 

Supervisor 


COMMA, 
Skeleton 
Supervisor 


COMMA, 
Skeleton 
Supervisor 


COMMA, 
Skeleton 
Supervisor 


COMMA, 

Skeleton 

Supervisor 


DISKZ 


DISKZ 


DISKZ 


DISKZ 


DISKZ 


DISKZ 


V/////A 


ASCOM 


ASCOM 


ASCOM 


ASCOM 


ASCOM 


Phase 



Resident 
Phase 


Resident 
Phase 


Resident 
Phase 


Resident 
Phase 


Resident 
Phase 


Overlay 
Area 


Overlay 
Area 


Overlay 
Area 


Overlay 
Area 


Overlay 
Area 


lH 


Phase 
9 


Phase 
9 


Phase 
9 


Phase 
9 


Phase 
9 


Phase 10 


Phase 10 


Phase 10 


INT1 


Phase 10A 


INT1 


Phase 1 1 


Phase 10A 






HDNG 
Buffer 


HDNG 
Buffer 


HDNG 
Buffer 


Card I/O 
Buffers 


Card I/O 
Buffers 


Card I/O 
Buffers 


Card I/O 
Buffers 


Card I/O 
Buffers 


Print 
Buffer 


Print 
Buffer 


Print 
Buffer 


Print 
Buffer 


Print 
Buffer 


Disk I/O 
Buffer 


Disk I/O 
Buffer 


Disk I/O 
Buffer 


Disk I/O 
Buffer 1 


Disk I/O 
Buffer 1 


Principal 
I/O Device 
Subroutine 


Principal 
l/O Device 
Subroutine 


Principal 
I/O Device 
Subroutine 


Disk I/O 
Buffer 2 


Disk I/O 
Buffer 2 


Principal 
Print Device 
Subroutine 


Principal 
Print Device 
Subroutine 


Principal 
Print Device 
Subroutine 


Principal 
Print Device 
Subroutine 


Principal 
Print Device 
Subroutine 


S. T. 

Overflow 

Buffer 


S. T. 

Overflow 

Buffer 


S. T. 

Overflow 

Buffer 


S. T. 

Overflow 

Buffer 


S. T. 

Overflow 
Buffer 


Symbol 
Table 


Symbol 
Table 


Symbol 
Table 


Symbol 
Table 


Symbol 
Table 



Figure 14. Core Layout During Assembler Program Operation 
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The FORTRAN Compiler translates source programs 
written in the 1130 Basic FORTRAN IV Language into 
machine language object programs. The compiler 
also provides for the calling of the necessary arith- 
metic, function, conversion, and input/output sub- 
routines during the execution of the object program. 



GENERAL COMPILER DESCRIPTION 



The FORTRAN Compiler consists of 27 sequentially 
executed phases: 

Phases 1 and 2 are initialization and control phases, 
processing the control records and building the 
initial statement string. 



Phases 3 thru 10 are specification phases, process- 
ing the specification statements and other defini- 
tive information and building the basic Symbol 
Table. 

Phases 11 thru 18 are compilation phases, analyzing 
and processing the source statements and re- 
placing them with object coding. 

Phases 19 thru 26 are the output phases. 

Phase 27 is a recovery phase, terminating the com- 
pilation and executing a CALL EXIT. 

Thus, the FORTRAN Compiler is a "phase" 
compiler; the compiler is passed-by the source 
program, which resides in core and is massaged 
into the object program. 



PHASE OBJECTIVES 

The following is a list of the compiler phases by 
number and name, and their major functions: 



Phase 
Number 



Phase Name 



Input 



Classifier 



Check Order/ 

Statement 

Number 



Function 

Process the control 
records; read the 
source statements 
and build the string. 

Determine the state- 
ment type and place 
the type code in the 
ID word. 

Check for the presence 
and sequence of 
SUBROUTINE, 
FUNCTION, Type, 
DIMENSION, COMMON, 
and EQUIVALENCE 
statements; place 
statement numbers in 
the Symbol 
Table. 
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Phase 






Phase 




Number 


Phase Name 


Function 


Number 


Phase Name 


4 


COMMON/SUB- 


Place COMMON variable 


11 


Subscript 




ROUTINE or 


names and dimension in- 




Decomposition 




FUNCTION 


formation in the Symbol 
Table; check for a 
SUBROUTINE or FUNC- 
TION statement and, if 










found, place the name 


12 


Ascan I 






and dummy argument 










names in the Symbol 










Table. 







Function 

Calculate the constants 
to be used in subscript 
calculation during exe- 
cution of the object 
program. 

Check the syntax of all 
arithmetic, IF, CALL, 
and statement function 
statements. 



DIMENSION/ 
REAL, INTEGER, 
and EXTERNAL 



Real Constant 



DEFINE FILE, 
CALL LINK, 
and CALL EXIT 



Variable and 

Statement 

Function 



DATA Statement 



10 



FORMAT 



Place DIMENSION var- 
iable names and dimen- 
sion information in the 
Symbol Table; indicate 
the appropriate mode 
for REAL and INTEGER 
statement variables. 

Place the names of real 
constants in the Symbol 
Table. 

Check the syntax of 
DEFINE FILE, CALL 
LINK, CALL EXIT 
statements; determine 
the defined file specifi- 
cations. 

Place the names of 
variables, integer con- 
stants, and statement 
function parameters in 
the Symbol Table. 

Check the syntax of the 
DATA statement, check 
its variables for validity, 
and reformat the state- 
ment. 

Convert FORMAT 
statements into a spec- 
ial form for use by the 
input/output subroutines 
during execution of the 
object program. 



13 Ascan II 



14 DO, CONTINUE, 

etc. 



15 Subscript 

Optimize 



16 Scan 



17 Expander I 



18 Expander II 



Check the syntax of all 
READ, WR[TE, FIND, 
and GO TO statements. 

Replace DO statements 
with a loop initializa- 
tion statement and in- 
sert a DO test state- 
ment following the DO 
loop termination state- 
ment; process BACK- 
SPACE, REWIND, 
END FILE, STOP, 
PAUSE, and END 
statements. 

Replace subscript 
expressions with an 
index register tag. 

Change all READ, 
WRITE, GO TO, 
CALL, IF, arithmetic, 
and statement function 
statements into a mod- 
ified form of Polish 
notation. 

Replace READ, WRITE, 
GO TO, and RETURN 
statements with object 
coding. 

Replace CALL, IF, 
arithmetic, and state- 
ment function statements 
with object coding. 
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Phase 
Number Phase Name 



Function 



CORE LAYOUT 



19 



20 



21 



22 



23 



24 



25 



Data Allocation 



Compilation 
Errors 



Statement 
Allocation 



List Statement 
Allocation 



List Symbol 
Table 



List Constants 



Output I 



26 



output n 



27 



Recovery 



Allocate a storage area 
for variables in the 
object program. 

List unreferenced 
statement numbers, 
undefined variables, 
and error codes for 
erroneous statements. 

Determine the storage 
allocation for the object 
program coding. 

List the relative state- 
ment number addresses, 
if requested. 

List the subprogram 
names in the Symbol 
Table and the System 
Library subroutine 
names in the string, 
if requested. 

Compute the addresses 
of the constants; list 
the addresses, if 
requested. 

Build the program 
header and data header 
records and place them 
in Working Storage; 
place the real and inte- 
ger constants into 
Working Storage. 

Complete the conver- 
sion of the string to 
object coding and place 
the object program into 
Working Storage. 

Print the compilation 
termination message; 
exit by executing a 
CALL EXIT. 



Figure 15, panel 1 shows the layout of the contents 
of core storage after the Monitor Control Record 
Analyzer has fetched phase 1 of the FORTRAN 
Compiler into core storage and has passed control 
to the control record analyzer portion. The princi- 
pal print and principal input device subroutines 
have been fetched by phase 1. The card input and 
print buffers have been allocated by phase 1. 

Figure 15, panel 2 shows the layout of the con- 
tents of core storage after the control record analy- 
zer portion of phase 1 has passed control to the 
statement input portion. The control record analy- 
zer portion of the phase is overlaid by the input 
statement string. 

Figure 15, panel 3 shows the layout of the con- 
tents of core storage during the execution of 
phases 2 through 18. During these phases the boun- 
dary separating the statement string and Symbol 
Table fluctuates as the string and Symbol Table 
are massaged. 

Figure 15, panels 4 and 5 show the layout of 
the contents of core storage during the execution 
of phases 19 through 24. Panel 4 reflects the 
contents of core storage before any printing has 
been performed in those phases. In panel 5 the 
lower-addressed portion of these phases has been 
overlaid by the print buffer when printing has 
been performed. 

Figure 15, panels 6 and 7 show the layout of 
the contents of core storage during the execution 
of phase 25. Panel 6 reflects the contents of 
core storage before any object coding has been 
generated and written to disk. In panel 7 the 
lower-addressed portion of the phase has been 
overlaid by the disk output buffer when object 
coding has been generated and written to disk. 

Figure 15, panel 8 shows the layout of the 
contents of core storage after control has been 
passed to phase 26. The disk buffer has been 
allocated by phase 26 and is not an overlay. 

Figure 15, panel 9 shows the layout of the 
contents of core storage after control has been 
passed to phase 27. The principal print device 
subroutine has been fetched by the phase. The 
DCOM buffer has also been allocated by the 
phase. 
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Figure 15. Core Layout During FORTRAN Compiler Operation 



FORTRAN COMMUNICATIONS AREA 



The FORTRAN Communications Area consists 
of 16 words of storage where information obtained 



from the FORTRAN control records and compiler- 
generated addresses and indicators are kept. 
This information is available to any phase needing 
it. The contents of the FORTRAN Communications 
Area words are described in Table 3. 



76 



Table 3. The Contents of the FORTRAN Communications Area 



PHASE AREA 



Word 


Symbolic Name 


Description of Contents 


1 


SOFS 


The address of the start of the string. 


2 


EOFS 


The address of the end of the string. 


3 


SOFST 


The address of the start of the Symbol Table. 


4 


SOFNS 


The address of the start of the non- 
statement-number entries in the Symbol 
Table. 


5 


SOFXT 


Phases 1-20. The address of the start of 
the Symbol Table entries for SGTs (subscript- 
generated temporary variables). 

Phases 21-25. The work area word count. 


6 


SOFGT 


Phases 1 -20. The address of the start of 
the Symbol Table entries for GTs (generated 
temporary storage locations). 

Phases 21 -25. The constant area word 
count. 


7 


EOFST 


The address of the end of the Symbol Table. 


8 


COMON 


Phases 1-19. The address of the next 
available word for COMMON storage. 

Phase 20. The address of the highest- 
addressed word reserved for COMMON 
storage. 

Phase 21. Not used. 

Phases 22-25. Relative entry point. 


9 


CSIZE 


All phases except Phase 20. The 
COMMON area word count. 

Phase 20. The address of the lowest- 
addressed word reserved for COMMON 
storage. 


10 


ERROR 


Bit 15 set to 1 indicates overlap error. 
Bit 14 set to 1 indicates other error. 


11-12 


FNAME 


The program name (obtained from the NAME 
control record, or a SUBROUTINE or 
FUNCTION statement) stored in name code. 


13 


SORF 


Set positive to indicate FUNCTION. 
Set negative to indicate SUBROUTINE. 
indicates mainline. 


14 


CCWD 


Control card word. 

Bit 15 set to 1 indicates Transfer Trace. 
Bit 14 set to 1 indicates Arithmetic Trace. 
Bit 13 set to 1 indicates Extended Precision. 
Bit 12 set to 1 indicates List Symbol Table. 
Bit 1 1 set to 1 indicates List Subprogram 

Names 
Bit 10 set to 1 indicates List Source Program. 
Bit 9 set to 1 indicates One Word Integers. 


15 


IOCS 


IOCS Control Card Word. 

Bit 15 set to 1 indicates 1442 Card Read 

Punch, Model 6 or 7. 
Bit 14 set to 1 indicates 1134/1055 Paper 

Tape Reader Punch. 
Bit 13 set to 1 indicates Console Printer. 
Bit 12 set to 1 indicates 1403 Printer. 
Bit 11 set to 1 indicates 2501 Card Reader. 
Bit 10 set to 1 indicates Keyboard. 
Bit 9 set to 1 indicates 1442 Card Punch, 

Model 5. 
Bit 8 set to 1 indicates Disk Storage. 
Bit 7 set to 1 indicates 1 132 Printer. 
Bit 3 set to 1 indicates 1627 Plotter. 
Bit 1 set to 1 indicates Unformatted Disk 

I/O Area . 


16 


DFCNT 


The number of files defined. 



The Phase Area is the area into which the various 
phases of the compiler are read by the ROL subrou- 
tine. The size of the Phase Area is determined by 
the size of the largest phase of the compiler. 

Each phase, when loaded into the Phase Area, 
overlays the preceding phase. There are two phases, 
however, that are exceptional in that they are loaded 
at some location other than the Phase Area origin. 
The ROL subroutine in phas e 1 is loaded into high- 
addressed storage by phase 1 so that it occupies 
initially the position it will occupy throughout the 
compilation. The control record analysis portion 
of phase 1 is loaded into the String Area. This por- 
tion of the phase is in use only until the FORTRAN 
control records have been processed and is overlaid 
by the source statements. Phase 27, the Recovery 
Phase, which is executed after the object program 
has been produced, is also read into the String Area. 



STRING AREA 

During compilation the String Area contains both the 
statement string and the Symbol Table. The state- 
ment string is built by the Input Phase in an ascend- 
ing chain beginning in the low-addressed words of 
the String Area. The Symbol Table is built during 
the compilation process in a descending chain be- 
ginning in the high-addressed words of the String 
Area. 

The statement string expands and contracts as it 
is massaged during the compilation process. The 
Symbol Table expands as items are removed from 
the statement string and added to the Symbol Table. 
In addition, some phases move the entire statement 
string as far as possible toward the Symbol Table. 
The last statement of the string then resides next 
to the last Symbol Table entry. As the phase oper- 
ates on the statement string, now referred to as 
the input string, it is rebuilt in the low-addressed 
end of the String Area. The rebuilt string is refer- 
red to as the output string. This procedure allows 
for expansion of the statement string. 
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If at any time during the compilation an entry 
cannot be made to the statement string or the Symbol 
Table due to the lack of sufficient storage, an overlap 
error condition exists. In the event of such an over- 
lap condition, the remaining compilation is bypassed 
and an error message is printed (see Compilation 
Errors) . Either the size of the source program or 
the number of symbols used must be decreased, or 
the program must be compiled on a machine of larger 
storage capacity. 



SYMBOL TABLE 

The Symbol Table contains entries for variables, 
constants, statement numbers, various compiler- 
generated labels, and compiler-generated temporary 
storage locations. 

The first entry of the Symbol Table occupies the 
three highest-addressed words of the String Area, 
i.e., the 3 words just below the first word of the 
FORTRAN Communications Area. The second entry 
is positioned in the lower-numbered words adjacent 
to the first entry, etc. 

During the initialization of the Symbol Table in 
phase 1, three words are reserved for the first 
Symbol Table entry. This entry is not made, how- 
ever, until phase 3. From this point the size of the 
Symbol Table varies from phase to phase until it 
achieves its largest size in phase 18. Its size always 
includes the three words reserved for the next 
Symbol Table entry. 

During phases 3 through 18, the Symbol Table con- 
tains variables, constants, and statement numbers. 
Information for these entries has been removed from 
the statement string and has been replaced by the 
address of the ID word of the corresponding Symbol 
Table entry. Also, the Symbol Table contains the 
various compiler-generated labels and temporary 
storage locations used in compilation. 



During the output phases, 19 through 26, these 
entries in the Symbol Table are replaced by object 
program addresses that are inserted into the object 
coding by phase 26. 



Format 

All entries in the Symbol Table consist of three 
words — an ID word and two Name-Data words. 
The entries for dimensioned variables are exception- 
al, however, in that they are six -word entries, the 
additional three words containing the dimension 
information. 

The ID word occupies the lowest-addressed word 
of the three word entry. The Name-Data words 
occupy the two higher-addressed words. 

A typical three-word entry is illustrated in the 
following example of the entry for the integer con- 
stant 290. 



ID Word 



Data Word 1 
2 9 



Data Word 2 
blank blank 



1 1 100000000000000 [01 100101 1 1001 1 10 1 0000000000000000 1 

Lowest-Addressed Highest-Addressed 

Word Word 

Entry in hexadecimal form -E000 65CE 0000 



The entry for the subprogram name COUNT would 
appear as: 



ID Word 



Name Word 1 
C O U 



Name Word 2 
N T 



[0000000010000000 | 100001 10101 10100 |1 100010101 10001 1| 



Lowest-Addressed 
Word 



Highest-Addressed 
Word 



Entry in hexadecimal form - C080 86B4 C563 
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ID Word 



Table 4. The Contents of the FORTRAN Symbol Table ID Word 



The layout of the Symbol Table ID word is given in 
Table 4. The ID word is formed when the entry is 
placed in the Symbol Table. 



Name -Data Words 



The Name-Data words of Symbol Table entries have 
the following format: 



Word Bit Contents 

1 0, if the following 15 bits contain 

the first half of a constant; 1, if 
the following 15 bits contain any- 
thing other than the first half of a 
constant. 

1-15 First 15 bits of the 30-bit Symbol 
Table entry 

2 Same as bit of word 1 



1-15 Second 15 bits of the 30-bit Symbol 
Table entry 



Bit 
Position 


Status and Meaning 








- Constant 

- Variable 


1 





- Integer 

- Real 


2 




- COMMON 


3-4 


01 
10 
11 


- One dimension 

- Two dimensions 

- Three dimensions 


5 




- Statement function parameter/dummy argument 


6 




- Statement number 


7 




- Statement function name 


8 




- Subprogram name 


9 




- FORMAT statement number 


10 




- Referenced statement number or defined 
variable 


11 




- External 


12 




- Generated temporary storage location (GT) 


13 




-' Subscript-generated temporary variable (SGT) 


14 




- Allocated variable 


15 


Not Used 



Three words are always used for the dimension 
information regardless of the number of dimensions. 

For one-dimensional arrays, all three dimension 
words contain the integer constant that specifies the 
dimension of the array. For example, the entry for 
array ARRAY (10) would appear as: 



Dimensioned Entries 



Dimension Information 




Array Name 


, 10 , 10 , 10 


( ID Word, 


I 1 


Lowest- 
Addressed 
Word 




Highest- 
Addressed 
Word 



The Symbol Table entry for a dimensioned variable 
requires six words: two for the array name, one 
for the ID word, and three for the dimension infor- 
mation. The dimension information occupies the 
three lowest-addressed words, the ID word occupies 
the next higher-addressed word, and the Name-Data 
words occupy the two highest-addressed words. 



For two-dimensional arrays, the first (highest- 
addressed) dimension word contains the integer 
constant of the first dimension; the middle and 
last (lowest-addressed) dimension words both 
contain the product of the first and second dimen- 
sion integer constants. Thus, the dimension in- 
formation for array B(5,15) appears as: 
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Dimension Information 



, 75 | 75 , 5 | IDWord | 



Array Name 



the number of words used to store that statement, 
including the ID word and statement terminator. 

The statement type codes , shown in Table 5 , are 
added in the Classifier Phase (except for FORMAT 
statements). 



For three-dimensional arrays, the first dimen- 
sion word contains the integer constant of the first 
array dimension; the middle dimension word con- 
tains the product of the first and second dimension 
integer constants; the third dimension word con- 
tains the product of the first, second, and third 
integer constants of the array dimensions. The di- 
mension information for array C(9,9, 9) appears as: 



Dimension Information 



729 



Array Name 



ID Word 



STATEMENT STRING 

The source statements are read by the Input Phase, 
converted to EBCDIC, and stored in core storage. 
The first statement is stored starting at $ZEND, and 
each succeeding statement is placed adjacent to the 
previous statement, thus forming the source state- 
ments into a string. The area within which the 
source statements are stored is referred to as the 
String Area. 



ID Word 



For identification purposes, as each statement is 
placed in the String Area, an ID word is added at 
the low-address end of each statement. The ID 
word has the following format: 

Bit Contents 

0-4 Statement type code 

5-13 Statement Norm 

14 Varied; used for interphase 
communication 

15 1, if statement is numbered; otherwise, 

The Norm is the only portion of the ID word com- 
pleted by the Input Phase. The Norm is a count of 



Table 5. FORTRAN Statement ID Word Type Codes 



Code 


Statement Types 


00000 


Arithmetic 


00001 


BACKSPACE 


00010 


END 


00011 


END FILE 


00100 


SUBROUTINE 


00101 


REWIND 


00110 


CALL 


00111 


COMMON 


01000 


DIMENSION 


01001 


REAL 


01010 


INTEGER 


01011 


DO 


01100 


FORMAT 


01101 


FUNCTION 


oino 


GO TO 


01111 


IF 


10000 


RETURN 


10001 


WRITE 


10010 


READ 


10011 


PAUSE 


10100 


Error 


10101 


EQUIVALENCE 


10110 


CONTINUE 


10111 


STOP 


11000 


DO test 


11001 


EXTERNAL 


11010 


Statement Function 


11011 


Internal Output Format 


11100 


CALL LINK, CALL EXIT 


11101 


FIND 


11110 


DEFINE FILE 


inn 


DATA 
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Statement Body 

Each statement, after being converted to EBCDIC, 
is packed two EBCDIC characters per word. This 
is the form in which the statements are initially 
added to the statement string. 



is printed and no object program is placed in Working 
Storage. 

Error messages appear in the following format: 

CAA ERROR AT STATEMENT NUMBER 
XXXXX+YYY 



Statement Terminator 

Statements are separated by means of the statement 
terminator character, a semicolon. The statement 
terminator character indicates the end of the state- 
ment body. This character remains in the string 
entry throughout the compilation process for that 
particular statement type. 

All statements in the statement string carry the 
statement terminator except for FORMAT and CON- 
TINUE statements and compiler-generated error 
statements. Error statements inserted into the 
string by the compiler are inserted without the 
terminator character. 



COMPILATION ERRORS 



When an error is detected during the compilation 
process, the statement in error is replaced by an 
appropriate error statement in the statement string. 
Each error statement is added during the phase in 
which the corresponding error is detected and the 
procedure is the same in all phases. 



1. 



2. 



3. 



The type code in the erroneous statement's ID 
word is changed to the error type. 
The statement body is replaced by the appro- 
priate error number. The statement number, 
if present, is retained in the Symbol Table and 
the Symbol Table address is retained in the 
error statement on the string. 
The statement string is closed up, effectively 
deleting the erroneous statement from the state- 
ment string. 



Error statements in the statement string are ex- 
ceptional in that they do not carry the statement 
terminator character (semicolon). 

Error indications are printed at the conclusion of 
compilation. If a compilation error has occurred, 
the message 

OUTPUT HAS BEEN SUPPRESSED 



where C indicates the FORTRAN Compiler, A A is the 
error number, XXXXX is the last encountered 
statement number, and YYY is the count of state- 
ments from the last statement number. 

See the Programming and Operator's Guide publi- 
cation for a list of the FORTRAN error numbers, 
their explanations, and the phases during which they 
are detected. 

In addition to the errors, undefined variables are 
listed by name at the end of compilation. Undefined 
variables inhibit the output of the object program. 

The initialization of each phase includes an overlap 
error check. If, at any time during the compilation, 
the statement string overlaps the Symbol Table, or 
vice-versa, or the remainder of the compilation is 
bypassed and the message 

PROGRAM LENGTH EXCEEDS CAPACITY 

is printed. 



COMPILER I/O 



The compiler uses the DISKZ subroutine for all disk 
I/O operations required during compilation. 

The compiler uses the principal input device sub- 
routine to read the control records and source state- 
ments to be compiled, and the principal input con- 
version subroutine to convert the source input to 
EBCDIC. 

The principal print device subroutine is used to 
perform any printing required during the compilation. 



FETCHING COMPILER PHASES 

The ROL subroutine loaded into high-addressed stor- 
age as part of phase 1, obtains from each phase the 
word count and sector address of the next phase to be 
loaded. This subroutine then reads the next compiler 
phase into core storage and transfers control to it. 

This subroutine also examines the Console Entry 
switches. If a request to dump is indicated in the 
switches, it calls the System Core Dump program via 



Section 11. FORTRAN Compiler 81 



the $DUMP entry point in the Skeleton Supervisor to 
dump the statement string, the Symbol Table, and 
the FORTRAN Communications Area, At the com- 
pletion of the dump the ROL subroutine regains 
control. It then fetches and transfers control to the 
next phase. 



PHASE DESCRIPTIONS 



• Converts subprogram names longer than five 
characters to five -character names. 

• Converts FORTRAN -supplied subprogram names 
according to the specified precision. 

• Generates the calls and parameters that initialize 
I/O subroutines during execution of the object pro- 
gram, if the IOCS control indicators are present. 



PHASE 1 

• Reads the control records; sets the correspond- 
ing indicators in the FORTRAN Communications 
Area. 

• Reads the source statements; stores them in the 
String Area; precedes each statement with a 
partially completed ID word. 

• Checks for a maximum of five continuation rec- 
ords per statement. 

• Lists the source program, if requested. 

Phase 1 is composed of two major segments; the 
first analyzes the control records and the second 
inputs the source statements. The control record 
analysis portion of phase 1 is loaded into the String 
Area, while the statement input portion is loaded at 
the normal Phase Area origin. The control record 
analysis subroutines, therefore, remain in storage 
until the processing of the control records is com- 
pleted. They are then overlaid by the source state- 
ments as the string is built by the statement input 
portion, 



Errors Detected 



The errors detected by phase 1 are: 1 and 2. 



PHASE 2 

• Determines the statement type for each statement; 
inserts the type code into the statement ID word. 

• Places the statement terminator character (semi- 
colon) at the end of each statement. 



According to the indicators set in the IOCS word 
(word 15) of the FORTRAN Communications Area by 
the previous phase, phase 2 generates the required 
calls to FORTRAN I/O. If the Unformatted Disk I/O 
Area indicator is on, a 'LIBF UFIO' followed by its 
parameter is inserted into the string. If the Disk 
indicator is on, a 'LIBF SDFIO' followed by its par- 
ameter is inserted into the statement string. If any 
other indicator in the IOCS word is on, phase 2 in- 
serts the 'LIBF SFIO' followed by its parameters 
into the statement string. The table of device ser- 
vicing subroutines (ISSs) is also built and inserted. 

Phase 2, beginning with the first statement of the 
string, checks each statement in order to classify it 
into one of the 31 statement types. FORMAT state- 
ments, already having the type code, and compiler- 
generated error statements are not processed by this 
phase. Each statement name is compared to a table 
of valid FORTRAN statement names. Each recog- 
nized statement name is removed from the string 
and the corresponding ID type code is inserted into the 
statement ED word. 

Arithmetic statements are detected by location of 
the equal sign (=) followed by an operator other than 
a comma. Because of this method of detection, 
arithmetic and statement function statements both 
carry the arithmetic statement ID type until phase 8, 
which distinguishes them. 

Names within the statement body are converted 
into name code and stored. Names with only one or 
two characters are stored in one word. 

Phase 2 converts all parentheses, commas, etc. , 
into special operator codes. Each operator is stored 
in a separate word. Also, each arithmetic operator 
(+, -, /, *, **) is stored in a separate word, and a 
statement terminator character (semicolon) is placed 
after each statement, except for CONTINUE and 
FORMAT statements and compiler-generated error 
statements. 

NOTE: The string words containing name or con- 
stant characters have a one in bit position 0. Bit 
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position of string words containing arithmetic op- 
erator characters has a zero. 

The standard FORTRAN-supplied subprogram 
names specified in the source program are changed, 
if necessary, to reflect the standard or extended 
precision option specified in the control records. 
Also, the six-character subprogram names of 
SLITET, OVERFL, and SSWTCH, which are allowed 
so as to be compatible with System/360 FORTRAN, 
are changed to SLITT, OVERF, and SSWTC, respec- 
tively. 

The word FUNCTION appearing in a Type state- 
ment and the statement numbers of DO statements 
are isolated by the Classifier Phase. Isolation is 
accomplished by placing a one-word special oper- 
ator (colon) just after the word or name to be isolated. 
This process aids later phases in detecting these 
words and numbers. 



Errors Detected 



The error detected by phase 2 is: 4. 



SUBROUTINE or FUNCTION statement 
Type statements (REAL, INTEGER) 
EXTERNAL statements 
DIMENSION statements 
COMMON statements 
EQUIVALENCE statements 

A check is also made to ensure that all DATA and 
DEFINE FILE statements appear within the Specifi- 
cation statement group. Placement of these two 
statement types is optional; however, they must not 
be intermixed with EQUIVALENCE statements. 

The SORF word (word 13) in the FORTRAN Com- 
munications Area is appropriately modified if a 
SUBROUTINE or FUNCTION statement is present. 

The second pass of phase 3 scans the statement 
string for statements with statement numbers. Each 
unique statement number is placed into the Symbol 
Table and the address of the Symbol Table entry is 
placed into the string where the statement number 
previously resided. 

All statements having statement numbers pre- 
viously added to the Symbol Table (duplicates of other 
statement numbers) are in error. 



PHASE 3 



Errors Detected 



• Checks the subprogram and Specification state- 
ments for the proper order; removes any state- 
ment numbers from these statements. 

• Checks to ensure that statements following IF, 
GO TO, CALL LINK, CALL EXIT, RETURN, 
and STOP statements have statement numbers. 

• Removes CONTINUE statements that do not have 
statement numbers. 

• Checks the statements for statement numbers; 
checks the Symbol Table for a previous entry of 
the same statement number. 

• Places the statement number into the Symbol 
Table; places the address of the Symbol Table 
entry into the string. 

Phase 3 makes two passes through the statement 
string. The first pass checks to ascertain the sub- 
program and Specification statements are in the fol- 
lowing sequence: 



The errors detected by phase 3 are: 5, 6, and 9. 



PHASE 4 

• Places COMMON statement variables into the 
Symbol Table; includes dimension information in 
the Symbol Table entries, if present; removes the 
statement from the string. 

• Checks for a SUBROUTINE or FUNCTION state- 
ment; places the names and dummy arguments 
of the SUBROUTINE or FUNCTION statement into 
the Symbol Table; deletes the statement from 
the statement string. 

• Checks REAL and INTEGER statements for the 
word FUNCTION. 

Phase 4 is a two-pass phase. The first pass proc- 
esses COMMON statements; the second pass proc- 
esses a SUBROUTINE or FUNCTION statement, in- 
cluding a FUNCTION designated in a REAL or 
INTEGER statement. 
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Pass 1 of phase 4 examines all COMMON state- 
ments, checking all variable names for validity. 
Valid, unique variable names found in COMMON 
statements are placed into the Symbol Table. Dupli- 
cate variable names are in error. 

When dimension information is present in a 
COMMON statement, the Symbol Table entry for the 
dimensioned variable is expanded to six words, the 
dimension constants are changed to binary format, 
and this binary information is inserted into the 
Symbol Table entry. The Symbol Table ID word is 
updated to indicate the presence of the dimension 
information and the level of dimensioning. 

When all the variables in a COMMON statement 
have been processed, it is removed from the string. 

The second pass of phase 4 checks for a SUBROU- 
TINE or FUNCTION statement among the Specifica- 
tion statements. If either is found, the SORF word 
(word 13) in the FORTRAN Communications Area is 
modified to indicate whichever is applicable. The 
subprogram name is checked for validity. If valid, 
the name is added to the Symbol Table and the ad- 
dress of the Symbol Table entry is placed into the 
FNAME words (words 11-12) in the FORTRAN Com- 
munications Area. The subprogram parameters are 
checked and, if valid, they are added to the Symbol 
Table and the statement is removed from the string. 

The first REAL and INTEGER statements are 
examined for the presence of the word FUNCTION. 
If the FUNCTION specification is found, the REAL 
or INTEGER statement is processed in the same 
manner as a FUNCTION statement, except that the 
subprogram mode is specified explicitly by the 
statement type. 



• Indicates in the Symbol Table ID word the 
variable's mode (real or integer). 

• Checks EXTERNAL statements for the names 
IFLX and FLOAT, which are not allowed. 

The processing of phase 5 is done in two passes. 
The first pass analyzes DIMENSION statements. Each 
variable name found in a DIMENSION statement is 
first checked for validity. If the name is valid, the 
Symbol Table is searched for a duplicate. If no dupli- 
cate is found, the variable name, along with its di- 
mension information, is added to the Symbol Table. 
If a duplicate is found that has not yet been dimen- 
sioned, the dimension information from the variable 
name is added to the existing Symbol Table entry. If 
a duplicate is found that has already been dimen- 
sioned, the variable name is in error. 

In a subprogram compilation, a comparison is 
made to ensure that no variable name duplicates the 
subprogram name. 

The second pass of phase 5 examines the REAL, 
INTEGER, and EXTERNAL statements found in the 
statement string. Each variable found in these types 
of statements is checked for validity. Valid variables 
are compared to the Symbol Table entries. Those 
variables duplicated in the Symbol Table as the result 
of prior COMMON or DIMENSION statement entries 
are in error. Those not equated to Symbol Table 
entries are added to the Symbol Table in the same 
manner as in the first pass of this phase. 



Errors Detected 



Errors Detected 



The errors detected by phase 5 are: 7, 8. 
18, 19, 20, 21, and 22. 



15, 17 



The errors detected by phase 4 are: 7, 8, 10, 11, 12, 
12, 13, 14, and 15. 



PHASE 6 



PHASE 5 



Scans all IF, CALL, and arithmetic statements 
for valid real constants. 



• Places DIMENSION statement variables into the 
Symbol Table; places dimension information into 
the Symbol Table entries; removes the statement 
from the string. 

• Places variables and dimension information from 
REAL, INTEGER, and EXTERNAL statements 
into the Symbol Table. 



• Converts real constants to standard or extended 
precision format, as specified. 

Each valid real constant encountered in an arithmetic, 
IF, or CALL statement is converted to binary in the 
precision indicated by the FORTRAN Communica- 
tions Area indicators. The Symbol Table is checked 
for a previous entry of the constant. If a previous 
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entry is found, no new entry is made. The constant 
operator, a special code indicating that the follow- 
ing word is the Symbol Table address of a constant, 
followed by the Symbol Table address of the con- 
stant already entered is inserted into the statement 
string in place of the constant. 

If no previous entry in the Symbol Table is found, 
the converted constant is added to the Symbol Table. 
The constant operator along with the Symbol Table 
address replaces the constant in the statement string. 
The statement string is closed up following the alter- 
ation of the string. 

Errors Detected 

The following errors are detected by phase 6: 23 
and 50. 



PHASE 7 

• Checks the syntax of DEFINE FILE, CALL EXIT, 
and CALL LINK statements. 

• Determines the defined file specifications. 

All variable names in DEFINE FILE, CALL LINK, 
and CALL EXIT statements are checked for validity 
and are added to the Symbol Table. All valid con- 
stants are converted to binary and are added to the 
Symbol Table. 

Phase 7 checks to ensure that a DEFINE FILE 
statement does not appear in a subprogram. 

This phase computes the file definition specifica- 
tions, that is, a DEFINE FILE Table consisting of 
one entry for each unique file. Each entry consists 
of the file number, the number of records per file, 
the record length, the associated variable, a blank 
word for insertion of the file's sector address at the 
time the program is loaded for execution, the num- 
ber of records per sector, and the number of disk 
blocks per file. A count is kept in the DFCNT word 
(word 16) in the FORTRAN Communications Area 
of the number of files defined. 



Errors Detected 

The errors detected by phase 7 are: 3, 70, 71, 72. 
and 73. 



PHASE 8 

• Places variables and integer constants into the 
Symbol Table. 

• Places parameters from statement function state- 
ments into the Symbol Table. 

• Replaces operators with pointers to the Forcing 
Table to be used in phase 16. 

• Converts the left parenthesis of subscripts to a 
special dimension indicator. 

Phase 8 checks the variable names found in the state- 
ment string for validity. Valid variables are added 
to the Symbol Table. A second check is made to en- 
sure that all variable names conform to the implicit 
or explicit mode specifications (real and integer). 
Integer constants are also added to the Symbol Table, 
provided they are unique. However, names and inte- 
ger constants that are found in subscript expressions 
are not added to the Symbol Table until a later phase. 

When adding names and constants to the Symbol 
Table, phase 8 replaces them in the string by the 
address of their respective Symbol Table entries. The 
address replacing a constant or name is the address 
of the ED word of the Symbol Table entry for that 
constant or name. 

Internal statement numbers are located in the 
Symbol Table and are replaced by the address of their 
corresponding Symbol Table entries; those state- 
ment numbers not found in the Symbol Table (i.e. , 
not previously entered) are in error. 

Phase 8 changes the ID word of the statement 
function statement, until now identical to that of an 
arithmetic statement, to the statement function type. 
Also, the statement function name and the param- 
eters of statement functions are added to the Symbol 
Table. These entries in the Symbol Table are dis- 
tinguished by their lack of a sign bit in the second 
word of the name. 

During phase 8, the left parenthesis on subscripts 
is changed to a special left parenthesis operator that 
indicates the order of the dimension that follows. 

This phase also converts all operators, except 
those in subscript expressions, from the 6-bit 
EBCDIC representation to a pointer value. This 
pointer value is derived from the Forcing Table. The 
conversion is done in preparation for the Scan Phase, 
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phase 16, when an arithmetic operational hierarchy- 
will be determined through these pointer values. 



Errors Detected 



The constant may be one word in length (an integer), 
two or three words in length (a real number in stand- 
ard or extended precision), or n words in length (a 
literal) . 

Each data pointer has the following form: 



The following errors are detected in phase 8: 7, 24, 
25, 26, and 43. 



PHASE 9 

• Checks the DATA statement for correct syntax 
and valid variable references. 

• Reformats the DATA statement into a string of 
data groups. 

Each variable in the DATA statement is checked to 
ensure that it has been previously entered into the 
Symbol Table. A check is also made to ensure that 
a subscript expression for a DATA statement vari- 
able does not exceed the level of dimensioning indi- 
cated in the Symbol Table entry for the referenced 
variable. 

Phases 9 converts the DATA statement into the 
following form: 



Word 



Bit 



1 



3-4 

5-15 

0-15 



Contents 



0, if no displacement word follows 

1 , if a displacement word follows 

0, non-extemally subscripted 
variable 

1, externally subscripted variable 
Zeros 

Symbol Table address of the variable 
Displacement word (present only if 
variable is subscripted) 



A displacement word follows data pointers to sub- 
scripted variables; its contents are the adjusted sub- 
script offset. 

The statement terminator is removed from the 
DATA statement in phase 9. 



Errors Detected 



ID 



I Word i Data Group 1 i Data Group 2 | 
1 I U ' ti ' 



I Data Group n | 
J ?i — : 1 



Phase 9 detects the following errors: 
78, 79, 80, and 82. 



PHASE 10 



75, 76, 77, 



Each data group has the following form: 



Converts FORMAT statements into a chain of 
format specifications for interpretation by the 
FORTRAN I/O subroutines. 



Data 
Header 



Constant 

— ea — 



Data Data 

Pointer 1 Pointer 2 



Data 
Pointer n 



-£2- 



• Converts the Apostrophe ( ') type format to 
H type. 



Each data header has the following form: 

Bits Contents 



1-12 Duplication factor 

13-15 Length of the following constant 



In decomposing the FORMAT statement, phase 10 
converts each format type into a format specification 
(see Table 6). Where required, the Field Repeat, 
Group Repeat, and REDO counts are computed and 
inserted. At the completion of phase 10, the 
FORMAT statement is simply a chain of format 
specifications. 

The conversion of a FORMAT statement is shown 
below: 
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ID 
Word 



999 H,3 A,P =,b F,3,6 E,4,10 / 
I I I I I I 



1,8 RR,4 
I I 



-3 T,l H,10 b,A N,S W,E R,b l,S 
I I I I I I I 



H,3 



X,Y =,b F,4,9 RR,16 
I I I I 



Table 6. Conversion of FORTRAN FORMAT Specifications 



Format 

Type 

(input) 


4 Bits 


Format Specification (output) 
5 Bits 7 Bits 


16 Bits 

A 






r v v ^ 


r \ 


E 


00 00 


DD | WW 


F 


000 1 


DD | WW 


1 


00 10 


WW 


A 


00 11 


WW 


X 


100 


WW 


H 


10 1 


WW 


T 


110 


CC 


/ 


111 


Undefined 


Group Repeat 


1000 


NO 


RR 1 


\) 


Field Repeat 


100 1 


NO 








10 10 


Not Used 


REDO 


10 11 


RR 



DD (decimal width) 
WW (total field width) 

CC (carriage control) 



Maximum = 127 (used only in E and 
F type formats). 

Maximum = 127 in E and F type for- 
mats, 145 in I, A, X, and H type 
formats. 

Positive count of the number of 
character positions to be skipped. 



NO (number) Positive count of the number of 

repetitions to be made of a field or 
group. 

RR, (group repeat) Negative count of the number of words 

back to the first specification of a group 
to be repeated. 

RR (REDO) Positive count of the number of words 

back to the rightmost left parenthesis in 
the statement. 



Errors Detected 

The following errors are detected in phase 10: 27, 
28, 29, and 30. 



PHASE 11 

• Calculates the constants needed for object pro- 
gram subscript computation. 



• Sets up dummy arguments for the insertion of 
variables in the object coding. 

Phase 11 bypasses all FORMAT, CONTINUE, and 
compiler-generated error statements. All other 
statements are scanned but only those statements 
that contain the special left parenthesis operator 
inserted by phase 8 are operated upon. 

The subscripting information for each variable 
is checked for validity. 
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Phase 11 then calculates the subscript constant 
D4 and, depending on the dimensioning level, the 
constants Dj, D2, and D3. (See below for the 
method of derivation of these constants. ) 

These subscript constants are inserted into the 
subscript expression with the subscript indices. 
The right and left parenthesis enclosing the subscript 
expression are then changed to special operators to 
be used in a later phase. 



Calculation of the Subscript Constants 

Assuming the maximum subscript form 

c*v + c' 

where 

v represents an unsigned, nonsubscripted, integer 
variable and c and c' represent unsigned integer 
constants, 

phase 11 computes the subscript constants (D -factors) 
as follows: 

For a 1 -dimension array — 

A(C. L *I + C 2 ) 

D 1 = C *S 

D 4 = <C 2 - 1) *S 
For a 2 -dimension array ~ 

A(C 3 *I+C 2 , C 3 *J+C 4 ) 

D = C *S 

D = L * C * S 

D 4 = [ (C 2~ 1) + L * (C 4" 1) ] * S 
For a 3 -dimension array — 



A(C *I+C,C *J+C,C *K+C) 

1 1 2 3 4 5 <q 

D = C *S 

D„ = L * C *S 

2 3 



D = L * M * C * S 
3 5 

D 4 = [ (C 2 " 1) + L * (C 4 - 1) + L * M * (C 6 - 1)] *S 
In the above formulas, 

L = first dimension factor 

M = second dimension factor 

S = size in words of the array entries 

= 1 for one-word integers 

= 2 for standard precision 

= 3 for extended precision 
C and C = constants in the first dimension value 

C and C = constants in the second dimension 
value 

C,_ and C„ = constants in the third dimension 
5 6 , 

value 

I, J, and K are the subscript indices. 

Errors Detected 

The following errors are detected in phase 11: 31, 
32, 33, 34, and 35. 

PHASE 12 

• Checks the syntax of arithmetic, IF, CALL, and 
statement function statements. 

• Checks statement function calls, including nested 
calls, for valid names and the correct number of 
parameters. 

• Checks for the definition of variables; checks for 
valid statement number references in IF state- 
ments. 

The syntax of all CALL statements is checked. A 
call operator is inserted between the subprogram 
name and its dummy arguments for use in the Scan 
Phase, phase 16. 

During the analysis of statement function state- 
ments a table is built containing the statement function 
name and the number of parameters associated with 



that function. This table is used in analyzing state- 
ment function calls, including nested calls, to check 
for the proper number of parameters. 

The syntax of the record number expression in 
Disk READ /WRITE statements is checked. The right 
parenthesis is changed to a colon operator which 
facilitates the scan of the Disk READ /WRITE state- 
ment in the following phase. 



PHASE 14 

• Checks for valid syntax in DO statements and in 
nested DO loops. 



• Generates and inserts at the appropriate points 
the coding needed to perform the DO test. 



Errors Detected 

The following errors are detected in phase 12: 
37, 38, 39, 40, 41, 42, and 43. 



36, 



Checks the syntax of DO, CONTINUE, BACK- 
SPACE, REWIND, END FILE, STOP, PAUSE, 
and END statements. 



PHASE 13 

• Checks FIND, READ, WRITE, and GO TO state- 
ments for correct syntax, valid FORMAT state- 
ment references, and valid variables. 

• Detects implied DO loops in READ and WRITE 
statements; generates the indicators necessary 
for later processing of the DO loop. 

When READ and WRITE statements are encountered 
in a mainline program, a check is made for the pres- 
ence of IOCS indicators in the FORTRAN Communi- 
cations Area. All READ and WRITE statements in a 
SUBROUTINE or FUNCTION subprogram do not 
require the presence of IOCS indicators. 

READ , FIND , and WRITE statements are checked 
for valid variables and for proper syntax. READ 
and WRITE statements are checked for a valid 
FORMAT statement reference. Disk READ and 
WRITE statements are differentiated by means of the 
apostrophe (') separating the file number and record 
number parameters. The appropriate disk or non- 
disk I/O operator is generated for and inserted into 
each READ or WRITE statement. 

READ and WRITE statements are also checked 
for implied DO loops. The necessary DO initialize 
and DO test operators are generated and inserted into 
the statement body. 



Errors Detected 

The following errors are detected in phase 13: 43, 
44, 45, 46, 47, 48, 49, 50, and 68. 



• Checks for a GO TO, IF, STOP, CALL LINK, 
CALL EXIT, or RETURN statement as the last 
executable statement of the source program. 



BACKSPACE, END FILE, and REWIND statements 
are checked for valid unit addresses. Valid unit 
addresses are placed into the Symbol Table as 
integer constants. BACKSPACE, END FILE, and 
REWIND statements are then replaced on the state- 
ment string by a generated LIBF followed by the 
Symbol Table address of the unit address. This 
Symbol Table address becomes an argument to 
the LIBF„ 

Statements which follow STOP statements are 
checked to ensure that they are numbered statements. 
All integers found in PAUSE and STOP statements 
are checked to ensure that they are not greater than 
9999. Valid integers are added to the Symbol Table 
as integer constants. 

As the DO statements are analyzed for correct 
syntax, phase 14 constructs a DO Table in the follow- 
ing format: 



Word 


Contents 


1 


Index 


2 


DO test statement number or 




Generated Label 


3 


Test value 


4 


Increment 


5 


DO range statement 




number 
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A DO Table entry is made for each DO statement 
when it is detected. As the statements following 
the DO statement are scanned, the statement num- 
bers are compared with the contents of word 5, the 
range limit, of the DO Table entries. When the 
range limit is found the DO test coding is inserted 
into the statement string. 

The DO Table is built from low-to-high-addressed 
storage. It is scanned, however, from high-to-low- 
addressed storage. In this manner, nested DO loops 
that violate range limits are detected. 



Errors Detected 



The following errors are detected in phase 14: 51, 
52, 53, 54, 55, 56, 57, 58, 59, 60, 61, and 62. 



PHASE 15 

• Scans READ , WRITE , IF, CALL, and arithmetic 
statements for subscript expressions. 

• Optimizes subscript calculation by means of the 
Subscript Expression Table. 

• Generates SGTs (Subscript-generated temporary 
storage locations) as necessary. 

Each unique subscript expression is placed into a 
table called the Subscript Expression Table. Each 
entry in this table appears as follows: 



Word 

1 
2 
3 

4 
5 
6 

7 



Contents 



D 



I, first dimension subscript index 

D i 

J, second dimension subscript index 

D 2 

K, third dimension subscript index 

D 3 

/8010, if entry is not used 

/0010, if entry is used on this statement 

/0000, if entry was used on a previous 

statement 



Also, each unique variable of a subscript expression 
is placed into a table called the Bound Variable 
Table. 

As each subscript expression is entered into the 
Subscript Expression Table, it is removed from the 
string. The subscripted variable is then tagged with 
SGT indicator bits pointing to the Subscript Expres- 
sion Table entry. 

An SGT (Subscript-generated temporary storage 
location) is generated for each entry made to the Sub- 
script Expression Table,. The SGT is placed into an 
SGT Table. The SGT is also placed into the Symbol 
Table and the address of the Symbol Table entry is 
inserted into the statement in the string. 

For each subscript expression encountered, a 
scan is made of the Bound Variable Table. If one or 
more of the variables in the subscript expression are 
not located in the Bound Variable Table, the subscript 
must be recalculated. Thus, a unique entry is made 
to the Subscript Expression Table for the expression 
and an associated SGT is generated. 

If, however, all the variables of the subscript 
expression are located in the Bound Variable Table, 
the Subscript Expression Table is then scanned to 
determine if a duplicate subscript expression is al- 
ready located in the table. If no equivalent is found, 
the subscript expression is added to the table as a 
unique entry and an associated SGT is generated. 

If a duplicate expression is found in the Subscript 
Expression Table, the subscript expression Is re- 
moved from the string and is replaced by a pointer 
to its duplicate in the Subscript Expression Table. 
Thus, identical subscript expressions share the same 
indices of a common entry in the Subscript Expression 
Table and the same SGT. 

Whenever a variable is assigned a new value (i.e. , 
appears to the left of the equal sign in an arithmetic 
expression, in the argument list of a subprogram, 
etc.), that variable, if found in the Bound Variable 
Table, is removed from the table. This removal 
from the Bound Variable Table causes all entries in 
the Subscript Expression Table containing that vari- 
able to be removed. The associated SGTs are also 
removed from the SGT Table but remain in the Sym- 
bol Table. The addresses in the string of the SGTs 
in the Symbol Table also remain. 

If a statement is encountered containing a subscript 
expression and having a statement number that is 
referenced by some other statement, the entire Sub- 
script Expression Table is cleared and all subscripts, 
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beginning with the subscript expression in the ref- 
erence statement, must be recalculated. 

The Subscript Expression Table is also cleared 
whenever a DO statement is encountered. Following 
subscripts must be recalculated. Implied DO loops, 
as in READ and WRITE statements, cause only those 
entries involving the index of the implied DO to be 
cleared. Only the subscripts involving that index 
must be recalculated. 



Errors Detected 



The following error is detected in phase 15: 63. 



PHASE 16 

• Converts all FIND, READ, WRITE, IF, GO TO, 
CALL, statement function, and arithmetic state- 
ments into a modified form of Polish notation. 

• Establishes the order of arithmetic operational 
performance. 

• Sets up the arguments for subroutine calls to be 
generated. 

Phase 16 converts all READ, WRITE, GO TO, arith- 
metic, statement function, CALL, and IF statements 
to a modified form of Polish notation. This conver- 
sion is accomplished through the use of a Forcing 
Table, strings, and an Interpreter. 

The Forcing Table is a table of 2-word entries. 
The first word contains the left and right forcing 
values for each operator. The first 8 bits constitute 
the left forcing value and the last 8 bits , the right 
forcing value. The second word of the 2 -word entry 
contains the address of the string to be used by the 
Interpreter when the corresponding operator is 
forced. (See Table 7.) 

The string address (word 2 of each Forcing Table 
entry) for each operator is a pointer used by the 
Interpreter. This pointer designates to the Inter- 
preter a string of operations that must be per- 
formed by the Interpreter in order to convert the 
forced operator and its operands to the modified form 
of Polish notation. 

NOTE: Strings may also contain pointers. These 
pointers designate substrings, which are detailed 



Table 7. FORTRAN Forcing Table 



Operator 


Definition 


Forcing Value 
Left | Right 


String 
Pointer 


N 


Name Operator 


63 


00 





) 


Normal Right Parenthesis 


01 


32 





• 


Statement Terminator 


3C 


3C 





+,- 


Add, Subtract 


0A 


0A 


1 


/,* 


Divide, Multiply 


05 


05 


1 


J. 


Exponentiation 
Assign 


05 
3B 


04 
3C 


1 
1 


( 


Normal Left Parenthesis 


31 


01 


2 


' 


Comma 


31 


30 


3 


© 


Call Operator 


01 


01 


4 


©.©. 

©.©. 


Special Parenthesis for Literals, 
Special Parenthesis for 
Dimensioned Arrays 


31 


01 


6 


© 


Unary Minus 


0A 


0A 


7 


© 


Range Operator 


31 


01 


8 


(skim 


Special Right Parenthesis in 
Implied DOs 


31 


01 


9 


© 


Subscripting Right Parenthesis 
in Implied DOs 


31 


01 


10 


© 


I/O Operator before Scan 


30 


01 


11 


© 


I/O Operator during and after 
Scan 


30 


01 


12 


(doa) 


Equal Sign in Implied DOs 


31 


01 


13 



extensions of the string and which are used by the 
Interpreter in the same manner as the strings. 

A forcing condition exists if the forcing value of 
the right operator is equal to or greater than the 
forcing value of the left operator. This condition re- 
sults in the left operator being forced; that is, the 
operation to the left has precedence. Whenever a 
non-forcing condition exists, the operands and oper- 
ators involved remain in the statement. Operands 
and operators are removed from the string only when 
an operator is forced and the Interpreter-generated 
symbol FAC replaces them. 

The Interpreter controls the conversion of the 
statement to the modified form of Polish notation. As 
each operator is forced, the Interpreter, using the 
string address from the Forcing Table, selects the 
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associated string and performs the string opera- 
tions. These operations result in the output of the 
forced operator and its operands, resequenced in 
the order of operational performance. The forced 
operator and its operands are put out into the output 
buffer by the Interpreter and are replaced in the 
statement body by the symbol FAC. 

The scan begins with the string pointer moving 
from left to right. When an operator is encountered, 
the scan looks two words to the left for a second op- 
erator. If none is found, the string pointer moves 
to the right, one word at a time, in search of another 
operator. If an operator is found to the left, the 
scan converts the left and right operators to their 
respective forcing values and checks for the forcing 
condition. 

If a forcing condition does not exist, the scan 
again resumes, moving the pointer to the right. If, 
however, a forcing condition does exist, the Inter- 
preter handles the operator and operands involved. 

Upon return to the scanning process, the string 
pointer is positioned to the same operator that 
caused the previous force, the symbol FAC resides 
one word to the left in place of the forced operator 
and its operands, and a new operator resides two 
words to the left. These operators are then con- 
verted and the check is made for the forcing condi- 
tion. 

If at any time the symbol FAC is an operand of a 
forced operator, FAC is replaced by a GT (generated 
temporary storage location). The GT is then output- 
ted as the operand in place of FAC. FAC again re- 
places the forced operator and operands in the state- 
ment body. New GTs are created as they are needed 
in order to maintain FAC in the statement body. 

At the completion of the scan process the state- 
ment body has been reduced to the symbol FAC; the 
statement body now consists of less than four words. 
The output buffer contains the entire statement con- 
verted to the modified form of Polish notation. 

If in looking for a left operator the scan must by- 
pass the argument list of a call operator, the ele- 
ments of this argument list are stored temporarily 
in a special buffer called the Push-down List. When 
the call operator is forced and placed into the output 
buffer, the Push-down List is then emptied into the 
output buffer in reverse order so that the arguments 
are restored in their original sequence following 
the call operator. 



When the scan detects that the statement consists 
of less than four words (the symbol FAC only), the 
output buffer is placed into the statement string 
overlaying the symbol FAC, and the scan moves to 
the next statement. 

The statement terminator (semicolon) serves as 
an operator that is scanned as any other operator. 

Figure 16 illustrates the scanning process. 



Errors Detected 



The following error is detected in phase 16: 64. 



PHASE 17 

• Replaces FIND, READ, WRITE, GO TO, and 
RETURN statements with compiler-generated 
coding. 

• Replaces those parts of arithmetic, IF, CALL, 
and statement function statements that involve 
subscripting of variables with compiler- generated 
coding. 

• Checks subprograms for a RETURN statement; 
generates the return linkage coding. 

Phase 17 replaces READ, WRITE, and FIND state- 
ments by a call to the appropriate I/O subroutine, 
along with the necessary arguments. Generated 
labels are added to READ and WRITE statements in- 
volving implied DO loops. 

Also, statement function, arithmetic, IF, and 
CALL statements are examined for subscripted var- 
iables. Those parts of these statements that involve 
subscripts are replaced by compiler- gene rated cod- 
ing. 

In order to produce more efficient coding, phase 
17, by means of an SGT Table, eliminates redundant 
loads of the same subscript offset. Also, the instruc- 
tions used to load literal subscripts are placed im- 
mediately before the indexed operations. 



Errors Detected 



The following error is detected in phase 17: 69. 
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Arithmetic Statement 
A=B+C*D-E 



Step 


Contents of 
the string 


Contents of the 
Output Buffer 


Comments 


1 


A = B+C*D-E 

t 

P 




A is not an operator, so the pointer, P, moves to the right. When scanning to the right for an 
operator, non-operators are simply skipped. When scanning for an operator to the left with which 
to force, non-operators are added to the push-down list. 


2 


A - B+C*D-E 
P 




There is no operator to the left with which a forcing condition test can be made; therefore, the 






pointer moves to the right until an operator is encountered. 


3 


A = B+C*D-E ; 

t 
P 




Using the forcing table, the pointer indicates the RV (right forcing value) and P - 2 (two positions 
to the left) indicates the LV (left forcing value). The RV of + is 0A; the LV of = is 3B . 0A is not 
equal to or greater than 3B. The left operator is not forced, and the pointer moves to the next 
operator. 


4 


A - B+C*D-E ; 
P 




The RV of * is 05; the LV of + is OA. 05 is not equal to or greater than 0A ... The left operator is 
not forced, and the pointer moves to the next operator. 


5 


A B+C*DrE ; 

T 
P 


*CD 


The RV of - is OA; the LV of * is 05. OA is greater than 05. Hence, the left operator is forced. 
*CD is placed in the output buffer and the symbol FAC replaces the outputted operator and 
operands. The pointer is not moved; an attempt is made to force the new left operator. 


6 


A = B+ FAC-E; 

t 
P 


*CD+B 


The RV of - is 0A; the LV of +- is 0A. 0A is equal to 0A . Hence, the left operator is forced. 
+B is added to the output buffer . The symbol FAC still replaces the contents of the output buffer . 
The pointer is not moved; an attempt is made to force the new left operator. 


7 


A = FAC-E; 

t 

P 


*CD+B 


The RV of - is 0A; the LV of = is 3B. 0A is not equal to or greater than 3B. The left operator 
is not forced and the pointer moves to the next operator. 


8 


A = FAC-E; 

t 
P 


*CD+B-E 


The RV of ; is 3C; the LV of - is 0A. 3C is greater than 0A. Hence, the left operator is 
forced. -E is added to the output buffer. The symbol FAC still replaces the contents of the 
output buffer. The pointer is not moved; an attempt is made to force the new left operator. 


9 


A = FAC; 

t 

P 


*CD+B-E=A 


The RV of ; is 3C; the LV of = is 3B. 3C is greater than 3B. Hence, the left operator is 
forced. =A is added to the output buffer. The symbol FAC still replaces the contents of the 
output buffer . 


10 


FAC; 


*CD+B-E=A 


The original statement now consists of three words or less. This indicates that the statement has 
been scanned . The symbol FAC is now replaced by the contents of the output buffer . 


11 


*CD+B-E=A; 




The scan is complete. 



Figure 16. FORTRAN Scan Example 



PHASE 18 

• Replaces arithmetic, statement function, CALL, 
and IF statements not involving subscripted var- 
iables by compiler-generated coding. 

• Completes the replacement of arithmetic, state- 
ment function, CALL, and IF statements that do 
involve subscripted variables by compiler- 
generated coding. 

• Optimizes IF statement branch instructions. 

• Handles mixed-mode arithmetic. 



This phase generates the coding necessary to replace 
arithmetic, statement function, CALL, and IF state- 
ments. This phase wholly converts statements of 
these types that include no subscripted variables and 
merely completes the conversion, which was partially 
completed in phase 17 , of statements of these types 
that do include subscripted variables. 

Phase 18 generates the code to perform integer, 
real, and mixed-mode arithmetic. Where possible, 
integer arithmetic is done in-line. The remainder of 
the coding consists of calls to System Library sub- 
routines, followed by argument lists. 

As needed, calls to the FORTRAN-supplied FUNC- 
TION subprograms IFIX and FLOAT are generated. 
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All calls to these subprograms are made LIBFs. 
However, calls to exponentiation subroutines gen- 
erated by phase 18 are made CALLs. 

GTs (generated temporary storage locations) de- 
tected in the string by this phase or generated by 
this phase for storing intermediate results of arith- 
metic calculations are made to agree in mode with 
the function of which they are a part. 



Errors Detected 



Variables that appear in EQUIVALENCE state- 
ments are allocated next, one combined equivalence 
nest at a time. The remaining variables in the 
Symbol Table are finally allocated, real variables 
first, followed by integer variables. 

Phase 19 also computes the core requirements for 
constants after all defined variables have been allo- 
cated. The core requirements for variables and for 
COMMON are then stored in the FORTRAN Commun- 
ications Area. 



There are no errors detected in phase 18. 



Errors Detected 



PHASE 19 



The error detected by phase 19 is either: 85, 66, 
or 67. 



• Fetches the principal print device subroutine for 
use by phases 19-24; also provides a print inter- 
face subroutine for these phases. 

• Allocates storage for COMMON variables. 

• Allocates all storage assignments aligned accord- 
ing to EQUIVALENCE statements. 



PHASE 20 

• Lists any errors that were detected during the 
compilation process. 

• Rearranges the statement string if there were no 
errors detected. 



• Assigns all allocations according to the specified 
precision of the program. 

• Prints the allocations of the variables as they 
are assigned, if requested. 

Phase 19 performs the allocation of the variables 
found in the Symbol Table; i. e. , these variables are 
assigned storage addresses in the object coding. 
These addresses replace the Symbol Table entries 
for the variables. 

The COMMON area resides in high-addressed 
storage during execution of the object program. 
Thus, all COMMON variables are assigned absolute 
addresses within this high-addressed area. The 
variable area resides in storage just below the ob- 
ject program during execution. All variables not 
in COMMON are assigned relative addresses within 
this area. 

Phase 19 first allocates COMMON variables found 
in the Symbol Table. EQUIVALENCE statements 
that include COMMON variables are examined and 
the addresses are aligned during allocation to obtain 
an equivalence. A check is made to ensure that the 
equivalence does not cause a variable or array ele- 
ment to be allocated beyond the beginning of the 
COMMON area. 



Phase 20 deletes from the statement string EQUIV- 
ALENCE statements that do not have an error indica- 
tor and replaces EQUIVALENCE statements that have 
an error indicator by error statements. 

The Symbol Table is scanned twice. The first 
scan detects unreferenced statement numbers and 
lists them on the principal print device. The second 
scan detects undefined variables and lists these also 
on the principal print device. 

The statement string is rearranged (if there were 
no errors in the compilation) so that, if they are 
present, the DEFINE FILE Table, format specifica- 
tion strings, and arithmetic statement functions pre- 
cede the first executable statement. 

The statement string is scanned for error state- 
ments. Two counters are maintained during the scan. 
The first (STLAB) contains the statement number of 
the last numbered statement encountered. The second 
(STCNT) contains a count of the statements encoun- 
tered since the last numbered statement. Compiler- 
generated statements and statement numbers are dis- 
regarded in these counts. 

When an error statement is detected, these coun- 
ters are inserted into the error message along with 
the error number for printing. 

A check is made on all DATA statements. If a data 
constant is defined in COMMON, error 81 is indicated. 
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Errors Detected 



The following error is detected in phase 20: 81. 



allocation found in each of these statements is 
entered in the Symbol Table. The allocation and the 
label are then deleted from the string entry. 



PHASE 21 



Errors Detected 



• Assigns the relative addresses to statement func- 
tions and numbered statements; inserts the allo- 
cations into the string. 

• Creates the subroutine initialization call, if 
required. 

• Calculates the core requirements of the program; 
stores the result in the FORTRAN Communica- 
tions Area. 

• Generates the statement function return linkage 
coding. 

Phase 21 allocates relative addresses to all num- 
bered statements and statement functions. The allo- 
cation is placed into the statement string entry, 
following the statement number or function label. A 
calculation of the object program storage require- 
ments is made from the Location Counter at the end 
of allocation and stored in the SOFNS word (word 4) 
in the FORTRAN Communications Area. 

If the program being compiled is a subprogram, 
this phase also creates the subroutine initialization 
call, CALL SUBIN, along with its dummy arguments; 
this subroutine directs the insertion of arguments 
during execution of the object program. 



Errors Detected 



There are no errors detected in this phase. 



PHASE 22 

• Inserts the statement allocations into the Symbol 
Table. 

• Lists the statement allocations on the principal 
print device, if requested. 

This phase scans the statement string for statement 
function statements and numbered statements. The 



There are no errors detected in this phase. 



PHASE 23 

• Lists the Features Supported by the program as 
indicated in the FORTRAN Communications Area. 

• Lists the System Library subroutines used by the 
program, if requested. 

• Lists the subprogram names found in the Symbol 
Table, if requested. 

Using the indicators in the CCWD word (word 14) in 
the FORTRAN Communications Area, phase 23 
recreates the control records that were recognized 
in phase 1. These control records (with the exception 
of *IOCS) are listed on the principal print device 
under the title 'FEATURES SUPPORTED. ' 

According to the indicators in the CCWD word, 
phase 23 also alters (for purposes of printing only) 
the names of subprograms in the compiler-generated 
calls to reflect extended precision, if specified. 
(The actual compiler-generated coding is not altered 
until phase 26.) 

If requested, a list is made of all the subprogram 
names that appear in the Symbol Table (all CALLs). 

Phase 23 also scans the statement string, bypass- 
ing all one -word statements and tagging the names in 
the System Library table that are called by the pro- 
gram (all LIBFs). While scanning the System 
Library table, phase 23 checks the indicators in the 
IOCS word (word 15) in the FORTRAN Communica- 
tions Area. A tag is added to the names of those 
subroutines that service the devices indicated in the 
IOCS word (i. e. , the devices listed in the *IOCS 
control record). The names of the associated con- 
version subroutines (if required) are also tagged. 
The Subroutine table is then scanned and, if requested, 
the tagged System Library subroutine names are 
listed. 
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Errors Detected 



There are no errors detected in this phase. 



PHASE 24 

• Lists the Core Requirements. 

• Lists the constants and their addresses, if 
requested. 

Under the heading 'CORE REQUIREMENTS, ' phase 
24 prints the amounts of storage used by the program, 
COMMON area, and variables. The program name 
is printed from the FNAME words (words 11-12) in 
the FORTRAN Communications Area. 

If a list request is specified in the CCWD word 
(word 14), the real and integer constants are con- 
verted to output coding and listed with their relative 
addresses according to the specified precision. 
Real constants are listed first, followed by integer 
constants. 

A check is made to see that the core requirements 
do not exceed 32767 words. If they do, the ERROR 
word (word 10) in the FORTRAN Communications 
Area is set and output to Working Storage is sup- 
pressed. 



Errors Detected 



There are no errors detected in this phase. 



PHASE 25 

• Builds the program header and data header rec- 
ords; places these records onto the disk in 
Working Storage. 



placed into Working Storage. The file specifications 
are outputted in absolute mode, except for the asso- 
ciated variable, which is in relocatable mode (the 
only relocatable constant). The statement string is 
also searched for DATA statements. All data con- 
stants are placed in Working Storage in absolute mode. 
The Symbol Table is scanned twice. The first scan 
extracts real constants, computes their allocations, 
and inserts the allocations into the Symbol Table. The 
second scan performs the same operations for integer 
constants. All constants are placed into Working 
Storage in absolute mode. 



Errors Detected 



There are no errors detected in this phase. 



PHASE 26 

• Converts the compiled statement string to object 
coding. 

• Places the object program into Working Storage. 

According to the indicators in the CCWD word (word 
14) in the FORTRAN Communications Area, phase 26 
alters the subroutine names referenced by the com- 
piled program to reflect, if necessary, extended pre- 
cision as specified by the user. Phase 23 made the 
same conversion for listing purposes; this phase 
makes the conversion during the generation of the 
object program. 

Phase 26 converts the statement string into the 
object program, which is written in Working Storage. 

At the completion of the output, the termination 
subroutine (OUTER) inserts the necessary data into 
the FORTRAN Communications Area so that the Re- 
covery Phase can complete the compilation. 



• Places real and integer constants into Working 
Storage in absolute mode. 

Phase 25 initially builds the program header and 
data header records. These records and the Buffer 
Communications Area carry information to phase 26. 
The program header and data header records are 
placed in Working Storage. 

The statement string is searched for DEFINE FILE 
statements. These statements are analyzed and then 



Errors Detected 



There are no errors detected in this phase. 



PHASE 27 

• Sets up the switches and parameters needed by 
the Monitor Control Record Analyzer to assume 
control. 
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This phase is the means by which the compiler re- 
turns control to the monitor system. The phase is 
entered under the following conditions: 

1. Normal end of compilation, with or without 
program errors. 

2. Disk work area exceeded. 

3. Control record trap during input phase. 

In each case the Recovery Phase sets indicators 
in the FORTRAN Communications Area in order to 
inform the monitor system program called next as 
to the results of the compilation. Compilation errors, 
the exceeding of Working Storage, and the trapping of 



a monitor control record all cause the compilation 
output to be suppressed, the non-execute switch 
($NXEQ) to be set, and the non-DUP switch ($NDUP) 
to be set. 

If the compilation is successful, the program 
length, the number of disk blocks used to store the 
program, and the execution address are all trans- 
mitted to DCOM on the master cartridge and to 
DCOM of the Working Storage cartridge if it is other 
than the master cartridge. 



Errors Detected 



There are no errors detected in this phase. 
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SECTION 12. SYSTEM LIBRARY 



FLOWCHARTS 

Write Cartridge ID (ID): 

Fetch Phase IDs From SLET (FSLEN): 

Fetch System Subroutine (FSYSU): 

Write Working Storage Addresses (ADRWS): 

Initialize Disk Cartridge (DISC): 

Read *ID Record and Convert (RDREC): 

Print Cartridge ID (EDENT): 

Call System Print Subroutine (CALPR): 

Copy Disk Cartridges (COPY): 

Delete Core Image Buffer (DLCIB): 

Dump SLET (DSLET): 

Maintenance Program (MODIF): 

SCAT2, Call Processing: 
SCAT2, Interrupt Processing: 

SCAT3, Call Processing: 
SCAT3, Interrupt Processing: 



UTL01 

UTL02 

UTL02 

UTL03 

UTL04 

UTL05 

UTL06 

UTL07 

UTL08 

UTL09 

UTL10 

UTL11- 

UTL13 

SCA01 

SCA02- 

SCA03 

SCA04 

SCA05- 

SCA07 



FORTRAN Non-disk I/O (SFIO): 
CARDZ: 



PRNTZ 

PAPTZ 

READZ 

WRTYZ 

PRNZ: 

PNCHZ 

TYPEZ 

HOLEZ 



FIO01- 

FIO03 

FIO04 

FIO05 

FIO06 

FIO07 

FIO08 

FIO09 

FIO10 

FIOll 

FI012 

FI013 



The System Library consists of (1) a complete 
library of input/output (except disk I/O), data 
conversion, arithmetic, and function subprograms, 
(2) selective dump subroutines, and (3) special 
programs for disk maintenance. 

The following is a list of the contents of the 
System Library. 



Function 

Utility 

Selective Dump on Console Printer 
Selective Dump on 1132 Printer 
Dump 80 Subroutine 

Common FORTRAN 

Test Console Entry Switches 
Divide Check Test 
Functional Error Test 
Overflow Test 

Sense Light Control and Test 
FORTRAN Trace Stop 
FORTRAN Trace Start 
Selective Dump 

FORTRAN Sign Transfer 

Extended Precision Transfer of Sign 
Standard Precision Transfer of Sign 
Integer Transfer of Sign 

Extended Precision Arithmetic/Function 

Extended Precision Hyperbolic 

Tangent 
Extended Precision A**B Function 



Name(s) 


Type 


Subtype 


Reference 


Deck ED 


DMTDO, 


DMTXO 


4 





CALL 


U5B00010 


DMPD1, 


DMPX1 


4 





CALL 


U5C00010 


DMP80 




4 





CALL 


U5A00010 


DATSW 




4 


8 


CALL 


T3F00010 


DVCHK 




4 


8 


CALL 


T3G00010 


FCTST 




4 


8 


CALL 


T3H00010 


OVERF 




4 


8 


CALL 


T3J00010 


SLITE, 


SLITT 


4 


8 


CALL 


T3L00010 


TSTOP 




4 


8 


CALL 


T3M00010 


TSTRT 




4 


8 


CALL 


T3N00010 


PDUMP 




4 





CALL 


T3K00010 


ESIGN 




4 


8 


CALL 


S2F00010 


FSIGN 




4 


8 


CALL 


R2F00010 


ISIGN 




4 


8 


CALL 


T3I00010 



ETANH, ETNH 
EAXB, EAXBX 



CALL 
CALL 



S2I00010 
S2C00010 
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Function 



Name(s) 



E xtended Precision Arithmetic/Function (Cont'd) 



Extended Precision Natural Logarithm 
Extended Precision Exponential 
Extended Precision Square Root 
Extended Precision Sine-Cosine 

Extended Precision Arctangent 
Extended Precision Absolute Value 
Function 

Standard Precision Arithmetic/Function 

Standard Precision Hyperbolic 

Tangent 
Standard Precision A**B Function 
Standard Precision Natural Logarithm 
Standard Precision Exponential 
Standard Precision Square Root 
Standard Precision Sine -Cosine 

Standard Precision Arctangent 
Standard Precision Absolute Value 
Function 

C ommon Arithmetic/Function 

Fixed Point (Fractional) Square Root 
Integer Absolute Function 
Floating Binary /EBCDIC Decimal 
Conversions 



System 

LOCAL/SOCAL Flipper 
DCOM: Update 

FORTRAN Trace 

Extended Floating Variable Trace 
Fixed Variable Trace 
Standard Floating IF Trace 
Extended Floating IF Trace 
Fixed IF Trace 

Standard Floating Variable Trace 
GOTO Trace 

FORTRAN I/O 



Non-Disk Formatted FORTRAN I/O 



FORTRAN Find 



ELN, EALOG 
EEXP, EXPN 
ESQR, ESQRT 
ESM, ESINE, 

ECOS, ECOSN 
EATN, EATAN 

EABS, EAVL 



Type 

4 
4 



Subtype 



Reference 


Deck ED 


CALL 


S2E00010 


CALL 


S2D00010 


CALL 


S2H00010 


CALL 


S2G00010 


CALL 


S2B00010 


CALL 


S2A00010 



FTANH, FTNH 


4 


8 


CALL 


R2I00010 


FAXB, FAXBX 


4 


8 


CALL 


R2C00010 


FLN, FALOG 


4 


8 


CALL 


R2E00010 


FEXP, FXPN 


4 


8 


CALL 


R2D 00010 


FSQR, FSQRT 


4 


8 


CALL 


R2H00010 


FSIN, FSINE, 










FCOS, FCOSN 


4 


8 


CALL 


R2G00010 


FATN, FAT AN 


4 


8 


CALL 


R2B00010 


FABS, FAVL 


4 


8 


CALL 


R2A00010 


XSQR 


4 


8 


CALL 


T1C00010 


IABS 


4 


8 


CALL 


T1B00010 


FBTD (binary to 










decimal), FDTB 










(decimal to binary) 


4 





CALL 


T1A00010 


FLIPR 


3 







U5D00010 


SYSUP 


4 





- 


U5E 00010 


SEAR, SEARX 


3 





LIBF 


S2J00010 


SIAR, SIARX 


3 





LIBF 


T6B00010 


SFIF 


3 





LIBF 


R2K00010 


SEIF 


3 





LIBF 


S2K00010 


SIIF 


3 





LIBF 


T6C00010 


SFAR, SFARX 


3 





LIBF 


R2J00010 


SGOTO 


3 





LIBF 


T6A00010 


SFIO, SIOI, SIOAI, 










SIOF, SIOAF, 










SIOFX, SCOMP, 










SWRT, SRED, 










siorx 


3 


3 


LIBF 


T4C00010 


SDFND 


3 


1 


LIBF 


T4B00010 
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Function 



Disk FORTRAN I/O 



Unformatted FORTRAN I/O 

Common FORTRAN 

FORTRAN Pause 

FORTRAN Stop 

FORTRAN Subscript Displacement 

Calculation 
FORTRAN Subroutine Initialization 
FORTRAN Trace Test and Set 

FORTRAN I/O and Conversion 

FORTRAN Card 1442 (Read/Punch) 
FORTRAN Card 1442-5 (Punch) 
FORTRAN Card 2501 (Read) 
FORTRAN Paper Tape 
FORTRAN 1132 Printer 
FORTRAN 1403 Printer 
FORTRAN Keyboard/Typewriter 
FORTRAN Typewriter 
FORTRAN Hollerith to EBCDIC 

Conversion 
FORTRAN Get Address Subroutine 
FORTRAN EBCDIC Table 
FORTRAN Hollerith Table 

Extended Precision Arithmetic/Function 

Extended Precision Get Parameter 
Extended Precision A**I Function 
Extended Precision Divide 
Extended Precision Float Divide 
Extended Precision Float Multiply 
Extended Precision Subtract Reverse 
Extended Add -Subtract 

Extended Load-Store 



Standard Precision Arithmetic/Function 

Standard Precision Get Parameter 
Standard Precision A**I Function 
Standard Precision Divide Reverse 
Standard Precision Float Divide 
Standard Precision Float Multiply 
Standard Precision Subtract Reverse 



Name(s) 



SDFIO, SDRED, 




SDWRT, SDCOM, 




SDAF, SDF, SDI, 




SDrx, SDFX, 




SDAI 


3 


UFIO 


3 


PAUSE 


3 


STOP 


3 


SUBSC 


3 


SUBIN 


3 


TTEST, TSET 


3 


CARDZ 


5 


PNCHZ 


5 


READZ 


5 


PAPTZ 


5 


PRNTZ 


5 


PRNZ 


5 


TYPEZ 


5 


WRTYZ 


5 


HOLEZ 


3 


GETAD 


3 


EBCTB 


3 


HOLTB 


3 


EGETP 


3 


EAXI, EAXK 


3 


EDVR, EDVRX 


3 


EDRr, EDIVX 


3 


EMPY, EMPYX 


3 


ESBR, ESBRX 


3 


EADD, ESUB, 




EADDX, ESUBX 


3 


ELD, ELDX, ESTO, 




ESTOX 


3 


FGETP 


3 


FAXI, FAXK 


3 


FDVR, FDVRX 


3 


FDIV, FDIVX 


3 


FMPY, FMPYX 


3 


FSBR, FSBRX 


3 



Type Subtype 



Reference 



Deck ID 



LIBF 


T4A00010 


LIBF 


T4D00010 


LIBF 


T2A00010 


LIBF 


T2B00010 


LIBF 


T2D00010 


LIBF 


T2C00010 


LIBF 


T2E00010 


LIBF 


T5A00010 


LIBF 


T5G00010 


LIBF 


T5J00010 


LIBF 


T5F00010 


LIBF 


T5H00010 


LIBF 


T5I00010 


LIBF 


T5K00010 


LIBF 


T5L00010 


LIBF 


T5D00010 


LIBF 


T5C00010 


_ 


T5B00010 


- 


T5E00010 


LIBF 


S1E00010 


LIBF 


S1B00010 


LIBF 


S1D00010 


LIBF 


S1C00010 


LIBF 


S1G00010 


LIBF 


S1H00010 


LIBF 


S1A00010 


LIBF 


S1F00010 


LIBF 


R1E00010 


LIBF 


R1B00010 


LIBF 


R1D00010 


LIBF 


R1C00010 


LIBF 


R1G00010 


LIBF 


R1H00010 
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Function 



Name(s) 



Type Subtype 



Standard Precision Arithmetic/Function (Cont'd) 



Standard Add/Subtract 

Standard Load/Store 

Standard Precision Fraction Multiply 

Common Arithmetic/Function 

Fixed Point (Fraction) Double Divide 
Fixed Point (Fraction) Double 

Multiply 
Sign Reversal Function 
Integer to Floating Point Function 
Floating Point to Integer Function 
I** J Integer Function 
Normalize 
Floating Accumulator Range Check 

Interrupt Service 

Card Input/Output (No Error 

Parameter) 
Card Input/Output (Error 

Parameter) 
Disk Input/Output (No Preoperative 

Parameter Checking) 
Disk Input/Output (No Simultaneity) 
High-Speed Disk Input/Output 

(Simultaneity) 
Paper Tape Input/Output 
Single Frame Paper Tape Input/Output 
Simultaneous Paper Tape Input/Output 
Plotter Output 
1132 Printer Output 
1403 Printer Output 

Keyboard/Console Printer Input/Output 
Console Printer Output 
1231 Optical Mark Page Reader 
2501 Card Input (No Error Parameter) 
2501 Card Input (Error Parameter) 
1442 Card Output (No Error Parameter) 
1442 Card Output (Error Parameter) 



FADD, FSUB, 
FADDX, FSUBX 

FLD, FLDX, 
FSTO, FSTOX 

XMDS 



XDD 

XMD 

SNR 

FLOAT 

IFK 

FECI, FBCDI 

NORM 

FARC 



CARDO 

CARD1 

DISKZ* 
DISK1* 

DISKN* 
PAPT1 
PAPTX 
PAPTN 
PLOT1 
PRNT1 
PRNT3 
TYPEO 
WRTYO 
OMPR1 
RE ADO 
READ1 
PNCHO 
PNCH1 



Reference 


DeckK) 


LIBF 


R1A00010 


LIBF 


R1F00010 


LIBF 


S3I00010 


LIBF 


S3G00010 


LIBF 


S3H00010 


LIBF 


S3F00010 


LIBF 


S3C00010 


LIBF 


S3D00010 


LIBF 


S3B00010 


LIBF 


S3E00010 


LIBF 


S3A00010 



5 





LIBF 


U2A00010 


5 





LIBF 


U2B00010 


- 


- 


Special 


- 


- 


- 


LIBF 


- 


_ 


_ 


LIBF 


_ 


5 





LIBF 


U2D00010 


5 





LIBF 


U2F00010 


5 





LIBF 


U2E00010 


5 





LIBF 


U2G00010 


5 





LIBF 


U2J00010 


5 





LIBF 


U2K00010 


5 





LIBF 


U2N00010 


5 





LIBF 


U2O00010 


5 





LIBF 


U2C00010 


5 





LIBF 


U2L00010 


5 





LIBF 


U2M00010 


5 





LIBF 


U2H00010 


5 





LIBF 


U2I00010 



*Note: Whereas DISKZ, DISK1, and DISKN are not strictly ISS subroutines (they are stored in the System Area 
by the System Loader) , they are included in this list because they possess many characteristics of ISS 
subroutines . 
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Function 



Name(s) 



Type Subtype 



Reference 



Deck ID 



Conversion 

16 bits to 6 Decimal Characters (Card 

Code) 
32 bits to 11 Decimal Characters 
16 Bits to 4 Hexadecimal Characters 

(Card Code) 
6 Decimal Characters (Card Code) 

to 16 bits 
11 Decimal Characters to 32 bits 
EBCDIC to Console Printer Output 

Code 
Card Code to EBCDIC, EBCDIC to 

Card Code 
Card Code to Console Printer 

Output Code 
4 Hexadecimal Characters (Card 

Code) to 16 bits 
PTTC/8 to EBCDIC, EBCDIC to 

PTTC/8 
PTTC/8 to Card Code, Card Code 

to PTTC/8 
PTTC/8 to Console Printer Output 

Code 
Card Code to EBCDIC, EBCDIC to 

Card Code 
Fast multi-purpose conversion 

Conversion Tables 

EBCDIC and PTTC/8 Table 

Card Code Table 

Console Printer Output Code Table 

EBCDIC to IBM Card Code 

1403 Code to Console Printer Code 

Console Printer Code to 1403 Code 

1403 Code to EBCDIC 

EBCDIC to 1403 Code 

IBM Card Code to Console Printer 

Code 
Console Printer Code to IBM Card 

Code 
Console Printer Code to EBCDIC 
EBCDIC to Console Printer Code 
PTTC/8 Code to IBM Card Code 
IBM Card Code to EBCDIC 
IBM Card Code to 1403 Printer Code 

SCA Subroutines 



BINDC 
BIDEC 

BINHX 

DCBIN 
DECBI 

EBPRT 

HOLEB 

HOLPR 

HXBIN 

PAPEB 

PAPHL 

PAPPR 

SPEED 
ZIPCO 



EBPA 

HOLL 

PRTY 

EBHOL 

PT3CP 

CPPT3 

PT3EB 

EBPT3 

HOLCP 

CPHOL 
CPEBC 
EBCCP 
PTHOL 
HLEBC 
HLPT3 

SCAT1 
PRNT2 
HOLCA 
STRTB 



LIBF 


U4B00010 


LIBF 


U4A00010 


LIBF 


U4C00010 


LIBF 


U4G00010 


LIBF 


U4H00010 


LIBF 


U3A00010 


LIBF 


U3B00010 


LIBF 


U3C00010 


LIBF 


U3D00010 


LIBF 


U3E00010 


LIBF 


U3F00010 


LIBF 


U3G00010 


LIBF 


U3H00010 


LIBF 


U3I00010 


_ 


U4K00010 


- 


U4P00010 


- 


U4Q00010 


- 


U4J00010 


- 


U4R00010 


- 


U4F00010 


- 


U4S00010 


- 


U4L00010 


- 


U4O00010 


- 


U4E00010 


- 


U4D00010 


- 


U4I00010 


- 


U4T00010 


- 


U4M00010 




U4N00010 


LIBF 


W1F00010 


LIBF 


W1E00010 


- 


W1C00010 


- 


W1G00010 
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Function 
SCA Subroutines (Cont'd) 



Mainline 

Initialize Disk Cartridge 
Print Cartridge ID 
Write Cartridge ID 
Copy Disk Cartridges 
Write WS Addresses 
Delete CIB 

Maintenance Program 
Dump SLET 
Paper Tape Utility 

System/Miscellaneous 

Call System Print Subroutine 
Fetch Phase IDs from SLET 
Fetch System Subroutine 
Read *BD Record and Convert 

Interrupt Level Subroutines 

Interrupt Level Zero Subroutine 
Interrupt Level One Subroutine 
Interrupt Level Two Subroutine 
Interrupt Level Three Subroutine 
Interrupt Level Four Subroutine 

1627 Plotter Subroutines 



Name(s) 


Type 


Subtype 


Reference 


3 Deck ID 


HXCV 




W1D00010 


EBC48 


- 


- 


- 


W1A00010 


HOL48 


- 


- 


- 


W1B00010 


DISC 


2 


. 




U6C00010 


IDENT 


2 


- 


- 


U6F00010 


ID 


2 


- 


- 


U6G00010 


COPY 


2 


- 


- 


U6B00010 


ADRWS 


2 


- 


- 


U6A00010 


DLCIB 


2 


- 


- 


U6D00010 


MODIF 


2 


- 


- 


U6H00010 


DSLET 


2 


- 


- 


U6E 00010 


PTUTL 


2 


- 


- 


U6I00010 


CALPR 


4 





CALL 


U7A00010 


FSLEN 


4 





CALL 


U7B00010 


FSYSU 


4 





CALL 


U7B00010 


RDREC 


4 





CALL 


U7C00010 


ILSOO 


7 


. 


__ 


U1A00010 


ILS01 

Q£mD 


7 
7 


1 


_ 


UIBOOOIO 
UICOOOIO 


ILS03 
(lLS04*) 

^^■"mfr. ii m i .1 w«g'!* f *^ 


7 
7 


1 


- 


ULDOOOIO 
UIEOOOIO 


SCALE 


_ 


_ 


_ 


V1N00010 


SCALF 


- 


- 


- 


V1O00010 


EGRID 


- 


- 


- 


V1C00010 


FGRID 


- 


- 


- 


V1H00010 


EPLOT 


- 


- 


- 


V1D00010 


FPLOT 


- 


- 


- 


V1I00010 


POINT 


- 


- 


- 


V1M00010 


ECHAR 


- 


- 


- 


V1A00010 


FCHAR 


- 


- 


- 


V1F00010 


ECHRX, ECHRI, 










VCHRI 


- 


- 


- 


V1B00010 


FCHRX, FCHRI, 










WCHRI 


- 


- 


- 


V1G00010 


ERULE 


- 


- 


- 


V1E00010 


FRULE 


- 


- 


- 


V1J00010 


PLOTI 


- 


- 


- 


V1K00010 


XYPLT 


- 


- 


- 


V1P00010 


PLOTX 


- 


- 


- 


V1L00010 



*These are special versions that consist only of IBT information. 
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INTERRUPT LEVEL SUBROUTINES 



INTERRUPT LEVEL TWO SUBROUTINE (ILS02) 

This interrupt level subroutine is actually a part 
of the Skeleton Supervisor. However, the Core 
Load Builder requires that a dummy ILS for level 
two be stored in the System Library. The dummy 
supplied by IBM is stored in the System Library 
as subtype 1, type 7. The coding in the dummy 
ILS02 is immaterial, because the Core Load Builder 
merely bypasses it when it discovers the subtype 1. 

If the user supplies his own ILS02, it must be 
stored in the System Library as subtype 0, type 7. 



INTERRUPT LEVEL FOUR SUBROUTINE (ILS04) 

This interrupt level subroutine is actually a part_ 
of the Skeleton Supervisor. However, the Core 
.Load Builder requires that a dummy ILS for level 
four be stored in the System Library. The dummy 
supplied by IBM is stored in the System Library 
as subtype 1, type 7. The dummy ILS04 consists 
only of a nine-word table followed by a zero, as 
follows: 



„ 


» 




„ 


10 




1 11 


IS _ <0 


<5 so ss » « 






D,C. , 






/.94.3A . 


, , .R.E.SM.RM.E.D, 








D.C, 








A,043%, . 


, , ,R,E,S,E,R,V,E,D, ' , , 








&c^ 








A.043%, , 


, , ,R,E,S,E,B,V>E,D, , 








o.c, 








/.0.4.3.h . 


. ■ 7,2,57 








P,C, 








A0.43.3C. 


, ■ ,1,4.03 








ac, 








/M3%. 


, . .2.5.0. t 








PC, 








/.0.7.3M-, 


. , ,1.4,42 , 








ac, 








A0A3,4£ l 


, , ,K,E,Y,8,0,A,e,D,A,C,OMS,OtL,£, ,P,R,I ,N,T,ER 








ac, 








/,043,(L. 


, , ./■ 1.3,4,/, 1,0,5,5, 








P£^ 








d. , , rr. 


, , ,E,N,D,-,0,F-,TA.aL,E, ,IA,DiI,C,A,T,0,R . , 


.... 




, , 








1 1 1 1 J 1 


, , 



The leftmost eight bits of each word contain the 
relative entry point to the ISS for the associated 
device, and the rightmost eight bits contain @ISTV 
plus the ISS number. These eight words are used 
by the Core Load Builder to construct the IBT for 
interrupt level 4. 



If the user supplies his own ILS04, it must be 
stored in the System Library as subtype 0, type 7. 



MAINLINE PROGRAMS 



DISK INITIALIZATION PROGRAM (DISC) 

The disk initialization program has three basic 
functions: 

• Establishes that the cartridges specified in the 
*ID record have no more than 3 defective cyl- 
inders and that cylinder is not defective 

• Changes the cartridge labels as specified in the 
*ID record 

• Initializes portions of sectors 0, 1, and 2 to set 
up the cartridges specified as non-system car- 
tridges 

DISC first reads an *ID record to obtain FROM 
and TO cartridge IDs. It then reads current car- 
tridge IDs from the master cartridge DCOM 
(#PCID) and compares them with the FROM IDs 
specified in the *ID record. If there are any IDs 
not found, an error message is printed on the 
principal print device. 

DISC next seeks home on all drives to be 
initialized (up to four) , and writes each of 3 
patterns to an entire cylinder, one sector at a time. 
The patterns used, in sequence, are /AAAA, /5555, 
and /0000. 

DISC then reads back each sector and compares 
it with the pattern written (including the sector ad- 
dress). If no error occurs, DISC writes the next 
pattern to the same cylinder. 

If the error bit of the DSW is set at any time or 
if the data read does not compare with the pattern 
written, DISC repeats the write/read sequence for 
the entire cylinder 50 times, using the same pattern. 

If a second error occurs, DISC puts the address 
of the first sector on the cylinder in which the error 
occurred in the defective cylinder table. 

DISC performs this write/read sequence for 
each of the 203 cylinders. 
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If (1) cylinder zero is defective, (2) more than 
three cylinders are defective, or (3) it is impossible 
to write a sector address, DISC types out an error 
message indicating that the cartridge may not be 
used. 

If the cartridge is good, DISC writes the defective 
cylinder addresses, if any, in the first three words 
of sector @IDAD. Wherever a defective cylinder 
does not exist, /0658 is written in the first three words 
of sector @IDAD. DISC also writes the cartridge ID 
in word four of sector @IDAD , writes zeros in words 
7-30, and stores an error message program beginning 
in word 31. If a cold start is attempted using this 
non-system cartridge, control is passed from the 
Cold Start Loader to the error message program 
instead of the Cold Start Program. An error mes- 
sage is printed on the Console Printer and no cold 
start is effected. 

DISC initializes the following words of DCOM 
(sector @DCOM): 



Location 


Value Inserted 


#ANDU 


/0200 


#BNDU 


/0200 


#FPAD 


/0020 


#CIDN 


Cartridge ID 


#CIBA 


/0008 


#ULET 


/0002 



DISC initializes LET (sector 2) as follows: 



Word 
1 
2 
3 

4 
5 
6 



Contents 
/0000 
/0020 
/0000 
/0138 

/oooo^ 

/7112 The name 

1DUMY (in 
/4528 name code) 
/0620 ' 



DISC terminates with a CALL EXIT, 



subroutine FSLEN. This IOAR header is used to 
call in the principal print device subroutine when 
it is needed by FSYSU. 

Next, 1DENT reads DCOM to obtain #PCID, the 
table of disk cartridge IDs and their related physical 
drive numbers. 

IDENT then prints the cartridge ID and physical 
drive number from the table until all available car- 
tridge IDs have been printed. 

IDENT terminates wLth a CALL EXIT. 



CHANGE CARTRIDGE ID (ID) 

This program changes the ID on up to four disk car- 
tridges. 

The IOAR headers for the principal input device, 
principal print device, and principal conversion 
subroutines are obtained from SLET on the system 
cartridge. These subroutines are used for input/ 
output. 

Using the RDREC subroutine, the *ID record is 
fetched. RDREC also builds two tables in core 
storage from the FROM-TO fields of the *ID record, 
one in packed EBCDIC for printer output, the other 
in binary for matching the cartridge IDs. DCOM 
is fetched from the master cartridge to obtain the 
cartridge ID table (#CIDN) . 

Each drive on the system is selected. If the 
selected drive is present, the cartridge ID is 
fetched. The ID is matched with the IDs in #CIDN. 
If no matching ID is found, the ID is printed with 
an error message and the job is terminated. The 
cartridge ID of the selected drive is matched to the 
IDs in the FROM-TO table. When a match occurs, the 
cartridge ID is changed to the 'TO' ID; the ID for 
the cartridge in #CIDN is changed and the 'TO' ID 
is written onto the selected drive. IDs that do not 
match entries in the FROM-TO table are bypassed. 

When all IDs have been processed, #CIDN is 
written back to the master cartridge and the FROM- 
TO table is printed. After printing the FROM-TO 
table, ID terminates with a CALL EXIT. 



PRINT CARTRIDGE ID (IDENT) 

This program prints out the ID and the physical drive 
number of each disk cartridge mounted on the system. 

IDENT first fetches the principal print device 
subroutine IOAR header from SLET using the 



DISK COPY (COPY) 

This program copies the contents of one or more 
cartridges (except words 0-3 of sector @DDAD) onto 
from one to four other cartridges. 

COPY first fetches the system device subroutine 
IOAR headers from SLET using the RDREC subroutine. 
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The system device subroutines are called in by the 
RDREC subroutine as they are needed by the pro- 
gram. The RDREC subroutine also reads the *ID 
record and converts the numbers to binary and 
stores them in the FROM-TO table. 

COPY then checks the FROM and TO field IDs 
to ensure that each specified cartridge is available. 
An error message is printed for the unavailable 
FROM or TO cartridges. 

All available FROM-TO cartridge combinations 
are then processed. Sectors thru 7 of cylinder 
of each source cartridge are read and written, ex- 
cept for the defective cylinder table, to each speci- 
fied destination cartridge. Sectors thru 7 of the 
next 199 logical cylinders of each source cartridge 
are copied, 4 sectors at a time to each specified 
destination cartridge. 

One cartridge at a time is processed and at the 
end of each, a check for a Keyboard interrupt is 
made. If any occurred during the previous copy, 
the interrupt is now processed. 

After all cylinders from the specified cartridge 
have been copied, a completion message is printed 
using the principal print device subroutine. 

COPY terminates with a CALL EXIT. 



DLCIB uses the subroutine RDREC to obtain 
the system device subroutine IOAR headers from 
SLET on the master cartridge and to fetch the *BD 
record containing the affected cartridge ID. The 
RDREC subroutine also converts the specified 
cartridge ID to binary. 

If the specified cartridge is not present, DLCIB 
prints an error message and terminates with a 
CALL EXIT. 

The CIB of the specified cartridge is deleted. 
The User Area and Working Storage are moved 
one cylinder closer to cylinder zero. Accordingly, 
the file -protection address for the specified car- 
tridge is altered in the $FPAD quintuple in COMMA. 

DCOM of the master cartridge is then read. 
The sector addresses of the CIB, User Area, and 
Working Storage are altered. DCOM is written 
back to the master cartridge and to the altered 
cartridge. 

DLCIB prints the new User Area and Working 
Storage addresses for the specified cartridge using 
the principal print device subroutine. 

DLCIB terminates with a CALL EXIT. 



DUMP SLET TABLE (DSLET) 



DELETE CIB (DLCIB) 

This program deletes the Core Image Buffer (CIB) 
from a non- system cartridge to provide additional 
disk storage area for the User Area and Working 
Storage. An *ID record is used to specify the car- 
tridge on which the CIB is to be deleted. 



DSLET dumps the System Location Equivalence 
Table (SLET) to the principal print device. Four 
4-word SLET entries are printed per line. 

DSLET reads the SLET table into a 640-word 
buffer in core storage, prints the SLET table using 
the principal print device subroutine, and terminates 
with a CALL EXIT. 
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SECTION 13. SYSTEM DEVICE SUBROUTINES 



The system device subroutines are a group of 
special subroutines used exclusively by the moni- 
tor system programs. These are the only device 
subroutines used by the monitor system programs, 
aside from DISKZ. They are listed below: 

DISKZ 

1403 Subroutine 

1132 Subroutine 



Console Printer Subroutine 
2501/1442 Subroutine 
1442/1442 Subroutine 
1134/1055 Subroutine 
Keyboard/Console Printer Subroutine 
2501/1442 Conversion Subroutine 
1134/1055 Conversion Subroutine (dummy) 
Keyboard/Console Printer Conversion Sub- 
routine (dummy) 
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SECTION 14. STAND-ALONE UTILITIES 



DISK CARTRIDGE INITIALIZATION PROGRAM 
(DCIP) 



When DCIP is entered, a message is printed in- 
structing the user to select the particular DCIP 
function desired. Depending on his choice, one of 
the functions described below is performed. 

All messages, entries through the Console Entry 
switches, and operator instructions are printed on 
the Console Printer. All user options are entered 
through the Console Entry switches. 



DISK INITIALIZATION 

A message is printed instructing the user to specify 
the number of the physical drive on which is mounted 
the cartridge to be initialized. At the same time, 
the user is given the option of doing an "address 
only" initialization, that is, an initialization that 
writes correct addresses on a cartridge without 
disturbing any of the data on that cartridge. The 
user is then asked to specify the cartridge ID. 

An entire cylinder of the cartridge is written with 
one of three test patterns. The patterns used are 
/AAAA, /5555, and /0000. The cylinder is then 
read back into core storage, one sector at a time, 
using double-buffering. 

While one sector is being read, every word of 
another is being examined to see that it compares 
with the data that was written. If no errors occur 
in any sector of the cylinder, the same procedure is 
repeated for the next pattern, and so on until all 
three patterns have been tested. 

However, if any disk operation causes the error 
bit of the disk device status word (DSW) to be set, or 
if the data read does not compare with that written, 
then the entire write/read/compare procedure is 
repeated fifty times on the same cylinder with the 
same test pattern. A second error, while in the 
retry mode, causes DCIP to indicate the cylinder as 
being defective. 

If (1) cylinder zero is defective, (2) more than 
three cylinders are defective, or (3) it is impossible 
to write a sector address, DCIP types out an error 
message indicating that the cartridge may not be 
used. 



After every cylinder on the cartridge has been 
tested in the above manner, the program writes three 
defective cylinder addresses and the cartridge ID into 
the first four words of sector @IDAD. Where defec- 
tive cylinder addresses do not exist, /0658 is written. 
Words 7-30 of sector @IDAD are set to zeros. DCIP 
also writes an error message program, beginning at 
word 31. If a cold start is attempted using this non- 
system cartridge, the error message program prints 
an appropriate message and no cold start is effected. 

DCOM (sector @DCOM) is initialized as follows: 



Location 


Value Inserted 


#ANDU 


/0200 


#BNDU 


/0200 


#FPAD 


/0020 


#CIDN 


Cartridge ID 


#CIBA 


/0008 


#ULET 


/0002 



LET (sector 2) is initialized as follows: 
Word Contents 

1 /0000 

2 /0020 

3 /0000 

4 /0138 

5 /0000 

61 /7112 I The name 1DUMY (in name 

1) /4528 i code) 

8 /0620 

A message indicating that the initialization is com- 
plete and the addresses of any defective cylinders are 
printed on the Console Printer. 

At this time, the user is given the option of doing 
additional testing of the disk; i. e. , the write/read/ 
compare sequence may be repeated up to 31 times. 



DISK DUMP 

The principal print device is determined by first 
initiating a carriage space operation on the 1403 
Printer. The device status word (DSW) for the 1403 
is then sensed to see if the 1403 is busy. If it is not, 
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the same procedure is followed with the 1132 Printer. 
On the basis of the results of the above test, a word 
that points to the appropriate conversion table and a 
branch instruction that branches to the proper printer 
call are set up. 

The user enters through the Console Entry 
switches the sector address (with the drive code) of 
the first sector to be dumped and the number of con- 
secutive sectors to be dumped. 

The logical sector address is determined in the 
following manner. The physical sector address is 
decremented by eight for each defective cylinder 
that has a lower sector address less than the cylinder 
to be dumped from. If the sector being dumped is on 
a defective cylinder, the sector is assigned the log- 
ical sector address of DEAD. Defective cylinder 
data for the cartridge is obtained from sector @IDAD. 

Each of the 320 data words of the sector is con- 
verted from binary to four hexadecimal characters of 
the appropriate printer code. The data is then 
printed, sixteen words per line. 



DISK COPY 

DCIP requests the user to enter the numbers of the 
source and destination drives in the Console Entry 
switches. The defective cylinder table from the 
source cartridge is fetched and checked to verify that 
the values in it are under 1624 and in ascending 
order. 

The source cartridge is copied sector by sector 
onto the destination cartridge. The cartridge ID 
and defective cylinder table in sector 0, cylinder 
are not copied onto the destination cartridge. If a 
system cartridge is being copied, the cartridge ID 
found in DCOM is also not copied. 



If a cylinder on the source cartridge is defective, 
the following cylinder is copied to the destination 
cartridge. If a cylinder on the destination cartridge 
is defective, the cylinder to be copied from the source 
cartridge is copied onto the following cylinder. 



UCART 



The user receives the 1130 Disk Monitor System on a 
disk cartridge. The contents of this cartridge are 
as follows: cylinder contains a copy of the Resident 
Image, including DISKZ, a copy of the CARDO sub- 
routine, a special cold start program, and a disk-to- 
card dump program; cylinders 1 through 202 contain 
the system decks stored in card images, four cards 
per sector. 

The execution of a cold start with this cartridge 
causes sector 0, cylinder to be fetched. Sector 0, 
cylinder contains DISKZ and the special cold start 
program. DISKZ is loaded into the locations it 
normally occupies in the Resident Monitor; the spec- 
ial cold start program immediately follows it. Con- 
trol is transferred to the special cold start program. 

The special cold start program fetches the Resi- 
dent Image (sector 2, cylinder 0) into the locations it 
normally occupies in low core storage, fetches the 
CARDO subroutine (sector 3, cylinder 0) into core 
storage at /0250, and fetches the disk-to-card dump 
program into core storage at /0390. Control is 
transferred to the disk-to-card dump program, which 
punches the svstem decks and terminates. 

The disk-to-card dump program uses a one- 
cylinder buffer origined at its high-addressed end. 
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PROGRAM ANALYSIS PROCEDURES 



INTRODUCTION 



PROGRAM ANALYSIS PROCEDURES SUMMARY 



The purpose of the Program Analysis Procedures 
is to provide the user with a step-by-step method 
for analyzing the execution of any monitor system 
or user program. The procedure is problem- 
oriented; it begins with some program malfunc- 
tion, assists the user in defining the failing com- 
ponent or function, and provides the facility for 
detailed analysis of that component or function. 



Flowdiagram 1 shows the procedure used for program 
analysis. At each step in the procedure, the parts of 
this document that apply to that step are indicated. 

IDENTIFICATION OF THE FAILING COMPONENT 
OR FUNCTION 

Flowdiagram 2 shows the procedure used to identify 
the component or function failing. Where applicable 
the parts of this document that are pertinent to that 
identification are indicated. 



Step 



Analysis Procedure 



Supporting Documentation 



o 



© 











© 



© 





( Start J 


\ 


' 




Determine which program is failing . If it is 
a subroutine, determine its name and its 
location in core . 




' 


f 




Get a full core dump. 




' 


' 




Block out and identify the significant items 
in the core dump listing . 




1 


' 




Analyze the failing subroutine: 
-Correct input -Data 

parameters -To and from Linkage 
-Function code -I/O area 








l 


1 


' 




If necessary, determine which program 
called the failing subroutine and where it 
is located in core . 




1 


' 




Analyze the calling program for correct 
parameters and linkage. If necessary, con- 
tinue tracing back all the way to the source 
program . 




1 


1 





Subroutine 
Data Charts 



Flowdiagram 1 . General Procedure for Program Analysis 
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Reference 



Analysis Procedure 



Supporting Documentation 



Contents of 
$PHSE 



Contents of 
$PRET 



Contents of: 
$PST1 Level 1 
$PST2 Level 2 
$PST3 Level 3 
$PST4 Level 4 



Phase >v Non-Zero 
ID 




Monitor System Program execution 
-A DSLET Listing will provide 
reference to phase ID 



Other Errors; 
Incorrect 
Answer, etc . 



Dump as soon 
as possible 
after the fail- 
ure: 



Yes 



Pre-operative I/O Error 
-Invalid Control Function 
-Device Not Ready 



Error number in ACC 
should identify subroutine. 
Go to Subroutine 
Maintenance Analysis Procedure 



r 
i 

i 




Post-operative I/O Error 
-Error Bits in DSW 



I 




Using IAR contents, go to step 1 1 
in Trace Back Procedures 



Yes 



Using IAR, XR1, XR2, XR3, ACC, 
EXT, attempt to correlate back to 
program. Go to step 11 in Trace 
Back Procedures 



T 
I 



I 





Flowdiagram 2 . Procedure for Identification of the Failing Component or Function 



114 



SUBROUTINE ERROR NUMBER/ERROR STOP 
LISTS 



Table 8 lists the errors detected by the System 
Library ISSs and system device subroutines by 
error code, describes the conditions under which 
the error is detected, and provides a list of cor- 
rective actions for those errors. 

Table 9 lists the error stop addresses and their 
meanings. 



CORE DUMP PROCEDURE 



To obtain a dump of the contents of core storage, 
perform the following (see Flowdiagram 3): 



If the error symptoms indicate that an error 
has occurred in the disk or disk I/O subroutine 
(i.e. DISKZ), the System Core Dump program 
should not be used, because this same disk I/O 
subroutine is used to load the System Core 
Dump program, thus destroying the information 
needed. 

Was there a NOCAL Dump include d in the coj;e_ 
load? If there was, 



2. 



. , jt may bejased to obtain 
the core dump^ To obtain the core dump, set 
the IAR to the entry point of the NOCAL Dump 
and start. 

3. If the error symptoms indicate an error in the 
principal print device, then the System Core 
Dump program should not be used, as it would 
destroy any information needed. 

4. To retain the maximum information, the off- 
line dump procedure should be used. 

a. By displaying core storage, copy down 
locations /0000 to /0050. 

b. Use the stand-alone printer dump to dump 
the rest of core storage. 

5. To obtain the core dump using the System Core 
Dump program, set the IAR to /0000 and start. 

CORE BLOCK DIAGRAMS 



Figure 17 , panel 1 shows the layout of the contents 
of core storage during the execution of a user's 
FORTRAN core load in which LOCAL subprograms, 



( Start ) 


v YES 

sYES 






w 




Retain Console 
Information- 
-ACC, EXT, 
XR1,XR2,XR3 
-Lights 
-Device Status 










./Error X. 

' In Disk ^ 


/Was\ 
yf There a x 
-♦/ NOCAL Dump 
n. Subroutine > 


\ YES 




Perform 
NOCAL 
Dump 


\Subroutine S 






[ NO 




JNO 








./Error x. 

/in Principal > 

Print Device 

N^Subroutine/ 




Perform 

Off-Line 

Dump 














T NO 




v 






Perform 
System 
Dump 




Obtain 
Full Core 
Dump 



















Flowdiagram 3. Core Dump Procedure 



files, arrays, and COMMON variables were defined 
and SOCALs were employed. 

Figure 17, panel 2 shows the layout of the contents 
of core storage during the execution of a user's 
FORTRAN core load in which files, arrays, and 
COMMON variables were defined. No LOCALs were 
defined; no SOCALs were employed. 

Figure 17, panel 3 shows the layout of the contents 
of core storage during the execution of a user's 
FORTRAN core load in which no LOCALs, files, 
arrays, or COMMON variables were defined and no 
SOCALs were employed. 

Figure 17, panel 4 shows the layout of the contents 
of core storage during the execution of a user's 
Assembler Language core load. 

CORE LOCATION PROCEDURES 

The following core load elements are located by 
means of the procedures given with the elements. 

FAC (Floating Accumulator) 

— 3 words used as FORTRAN Floating Accumulator 
~ Located at XR3 + /007D. 
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Table 8 . Error Number List 



HEXADECIMAL 
ERROR NUMBER 

IN 
ACCUMULATOR 


SYMBOLIC 

ERROR STOP 

ADDRESS 


DETECTING 

SUBROUTINE 

DURING SYSTEM 

PROGRAM 

EXECUTION 


DETECTING 
SUBROUTINE 
DURING 
FORTRAN 
CORE LOAD 
EXECUTION 


DETECTING 

SUBROUTINE 

DURING ASSEMBLER 

LANGUAGE CORE 

LOAD EXECUTION 


ERROR EXPLANATION 


CORRECTIVE ACTION 


1000 


$PRET 


System 1442/1442 
Subroutine 


CARDZ 
PNCHZ 


- 


1442 - Device Not Ready 


1442 - Ready the Device 






CARDO 
CARD1 


1442-6,-7 - Device Not Ready 
- Read initiated with 
Last Card Indicator 
on 


PNCHO 
PNCHl 


1442-5 - Device Not Ready 


$PST4 


System 1442/1442 
Subroutine 


CARDZ 
PNCHZ 


CARDO 
CARD1 
PNCHO 
PNCHl 


1442 - Device Not Ready 


1442-5 - Run out the punch 
— Ready the Device 


1442-6,-7 - Ready the Device 


1001 


$PRET 






CARDO 
CARD1 
PNCHO 
PNCHl 


1442 - Invalid Device 
Specified 

- Device not on system 

- Invalid Function 
Specified 

- Word Count over +80 

- Word Count zero or 
negative 


1442 - Use Trace Back Procedures 
to analyze calling program 


2000 


$PRET 


System Keyboard 
Subroutine, 
System Keyboard/ 
Console Printer 
Subroutine 


TYPEZ 
WRTYZ 


TYPE0 
WRTY0 


Console Printer/Keyboard 
- Device Not Ready 


Console Printer/Keybcord 
- Ready the Device 


$PST4 


System Keyboard 
Subroutine, 
System Keyboard/ 
Console Printer 
Subroutine 


TYPEZ 
WRTYZ 


TYPE0 
WRTY0 


Console Printer/Keyboard 
- Device Not Ready 


Console Printer/Keyboard 
- Ready the Device 


2001 


SPRET 






TYPE0 
WRTY0 


Console Printer/Keyboard 

- Device not on System 

- Invalid Function 
Specified 

- Word Count zero or 
negative 


Console Printer/Keyboard 

- Use Trace Back Procedures 
to analyze calling program 


3000 


$PRET 


System 1134/1055 
Subroutine 


PAPTZ 


PAPT1 
PAPTX 
PAPTN 


1134/1055 - Device Not Ready 


1134/1055 - Ready the Device 


$PST4 


System 1134/1055 
Subroutine 


PAPTZ 


PAPT1 
PAPTX 
PAPTN 


1134/1055 - Device Not Ready 


1134/1055 - Ready the Device 


3001 


$PRET 






PAPT1 
PAPTX 
PAPTN 


1134/1055 - Invalid Function 
Specified 

- Invalid Check Digit 

- Word Count zero or 
negative 


1134/1055 - Use Trace Back 
Procedures to 
analyze calling 
program 


4000 


$PRET 


System 2501/1442 
Subroutine 


READZ 


READ0 
READ1 


2501 - Device Not Ready 


2501 - Ready the Device 


$PST4 




READZ 


READO 
READ1 


2501 - Device Not Ready 

- Read Error 

- Feed Check 


2501 - Ready the Device 

- Run out the reader and 
retry with last card read 
and cards run out 
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Table 8. Error Number List (Continued) 



4001 


$PRET 






READO 
READl 


2501 - Invalid Function 
Specified 

- Word Count over +80 

- Word Count zero or 
negative 


2501 - Use Trace Back Procedures 
to analyze calling program 


5000 


$PRET 


DISKZ 


DISKZ 


DISKZ 
DISKl 
DISKN 


Disk - Device Not Ready 


Disk - Ready the Device 


5001 


$PRET 






DISKl 
DISKN 


Disk - Invalid Device Specified 

- Device not in System 

- Invalid Function 
Specified 

- Area to be written 
Fi le-protected 

- Word Count zero or 
negative 

- Starting Sector Address 
over +1599 


Disk - Use Trace Back Procedures 
to analyze calling program 


$PST2 


DISKZ 


DISKZ 


DISKZ 
DISKl 
DISKN 


Disk - Power Unsafe 
- Write Select 


Disk - Turn power down, wait for 
CARTRIDGE UNLOCKED 
light to come on , turn 
power up, then retry 
- Call CE on persistent error 


5002 


$PST2 


DISKZ 


DISKZ 


DISKZ 
DISKl 
DISKN 


Disk - 16 retrys made without 
success 


Disk - Initiate 16 more retrys 

- Use another drive 

- Use another cartridge 

- Reinitialize cartridge 


5003 


$PRET 


DISKl 
DISKN 






Disk - Invalid Device Specified 

- Device not in System 

- Invalid Function 
Specified 

- Area to be written 
File-protected 

- Word Count zero or 
negative 

- Starting Sector Address 
over +1599 


Disk - Use Trace Back Procedures 
to analyze calling program 


5004 


$PST2 


DISKZ 


DISKZ 


DISKZ 


Disk - Disk Error 


Disk - Turn power down, wait for 
CARTRIDGE UNLOCKED 
light to come on, turn 
power up, then retry 
- Call CE on persistent error 


6000 


$PRET 


System 1 1 32 
Subroutine 


PRNTZ 


PRNTl 
PRNT2 
PRNT3 


1 1 32 - Device Not Ready 
- End of Forms 


1 1 32 - Ready the Device 


6001 


$PRET 






PRNTl 
PRNT2 
PRNT3 


1132 - Invalid Function 
Specified 

- Word Count over +60 

- Word Count zero or 
negative 


1 1 32 - Use Trace Back Procedures 
to analyze calling program 


7000 


$PRET 


- 


- 


PLOT1 


1627 - Device Not Ready 


1627 - Ready the Device 


$PST3 


- 


- 


PLOT1 


1627 - Device Not Ready 


1627 - Ready the Device 


7001 


$PRET 






PLOT1 


1627 - Invalid Device Specified 

- Device not on System 

- Invalid Function 
Specified 

- Word Count zero or 
negative 


1627 - Use Trace Back Procedures 
to analyze calling program 


8001 


$PRET 






SCATl 
SCAT2 
SCAT3 


SCA - Invalid Function 
Specified 

- Invalid Word Count 

- Invalid Subfunction 
Specified 


SCA - Use Trace Back Procedures 
to analyze calling program 
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Table 8. Error Number List (Concluded) 



8002 


$PRET 






SCAT1 


SCA - Receive operation 
not completed 
- Transmit operation 
not completed 


SCA - Use Trace Back Procedures 
to analyze calling program 


8003 


$PRET 






SCAT1 


SCA - Synchronization not 
established before 
attempting to perform 
some Transmit or 
Receive Operation 
- Attempting to Receive 
before receiving INQ 
sequence 


SCA - Use Trace Back Procedures 
to analyze calling program 


9000 


$PRET 


System 1403 
Subroutine 


PRNZ 


PRNT3 


1403 - Device Not Ready 
- End of Forms 


1403 - Ready the Device 


$PST4 


System ]403 
Subroutine 


PRNZ 


PRNT3 


1403 - Device Not Ready 
- Print Error 


1403 - Ready the Device 


9001 


$PRET 






PRNT3 


1403 - Invalid Function 
Specified 

- Word Count over +60 

- Word Count zero or 
negative 


1403 - Use Trace Back Procedures 
to analyze calling program 


A000 


$PRET 


- 


- 


OMPR1 


1231 - Device Not Ready 


1231 - Ready the Device 


$PST4 






OMPR1 


1231 - Device Not Ready 

- Timing Mark Error 

- Read Error 


1231 - Ready the Device 

- Retry with the sheet that 
has been selected into 
the stacker 


A001 


$PRET 


- 


- 


OMPR1 


1231 - Invalid Function 
Specified 


1231 - Use Trace Back Procedures 
to analyze calling program 



Table 9. Error Stop List 



Absolute Address 


Symbolic Address 


Program 


Explanation 


/0014 




Cold 
Start 
Loader 


-Invalid disk drive number 
in Console Entry Switches 

-Indicated disk drive not 
ready 


/0044 


- 


Cold 
Start 
Loader 


-Disk read error 
-Waiting for interrupt from 
seek operation 


/0046 


- 


Cold 
Start 
Loader 


-Waiting for interrupt from 
reading sector @IDAD 


/0029 


$PRET + 1 


All ISSs 


-Preoperative Error 


/0082 


$PST1+1 


Level 1 
ISSs 


-Post-operative Error on 
level 1 


/0086 


$PST2 + 1 


Level 2 
ISSs 


-Post-operative Error on 
level 2 


/008A 


$PST3 + 1 


Level 3 
ISSs 


-Post-operative Error on 
level 3 


/008E 


$PST4 + 1 


Level 4 
ISSs 


-Post-operative Error on 
level 4 



ARITHMETIC AND FUNCTION SUBPROGRAM 
ERROR INDICATORS 

— 3 words preceding FAC. 

— First word (XR3 + /007A) is used for real arith- 
metic overflow and underflow indicators. 

— Second word (XR3 + /007B) is used for divide 
check indicator. 

— Third word (XR3 + /007C) is used for function 
subroutine indicators. 

— The loader initializes all three words to zero. 



LIBF TV (Library Function Transfer Vector) 

— One 3-word entry for each LIBF listed in the 
core map. 

— Located just preceding ARITH/FUNC ERROR 
INDICATORS. 

— Higher core end is located at XR3 + /0079. 

-- First LIBF Entry (the beginning of LIBF TV) is 
located at (XR3 + /0077) - (3 times the number 
of LIBFs listed in core map). 
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COMMA, 

Skeleton 

Supervisor 


COMMA, 

Skeleton 

Supervisor 


COMMA, 

Skeleton 

Supervisor 


COMMA, 
Skeleton 
Supervisor 


DISKZ 


DISKZ 


DISKZ 


DISK1 

or 
DISKN 


DEFINE FILE 
Table 


DEFINE FILE 
Table 


Constants, 
Integers 


Mainline 
Program 


Arrays 


Arrays 


Format 
Parameters 


Mainline 
Program 


Constants, 
Integers 


Constants, 
Integers 


Format 
Parameters 


Format 
Parameters 


Mainline 
Program 


Mainline 
Program 


In-Core 
Subroutines 


In -Core 
Subroutines 


In-Core 
Subroutines 


In-Core 
Subroutines 


Flipper 
Table 


Interrupt 

Level 

Subroutines 


FLIPR 


Interrupt 

Level 

Subroutines 


Interrupt 

Level 

Subroutines 


LOCAL 
Area 


Up 


SOCAL 
Area 




HP 


Interrupt 

Level 

Subroutines 


V/M 


LIBF TV 


LIBF TV 


LIBF TV 


CALL TV 


CALL TV 


CALL TV 


COMMON 


COMMON 


COMMON 


LIBF TV 


CALL TV 



Figure 17. Core Layout During User Core Load Execution 

LIBF TV SOCAL LINKAGE 

— The 6 or 9 words used to link to the SOCAL / 
LOCAL Flipper. 

— Located just preceding the First LIBF Entry in 
the LIBF TV. 



— 6 words long if SOCAL option 1; 9 words long if 
SOCAL option 2. 

CALL TV (Call Transfer Vector) 

— One single-word entry for each call listed in the 
core map. 

— Located immediately following FAC. 

— First CALL TV Entry is at XR3 + /0080 (add 1 if 
address comes out odd). 

— The Last CALL TV Entry is at ( First CALL TV 
Entry- 1 ) - (Number of CALLs listed in the core 
map). 

DISK I/O SUBROUTINE 

— All Disk I/O subroutines are loaded beginning 
at CORE LOCATION /00F2. 

— The Disk I/O subroutines vary in length (see table) 

— The type of disk subroutine in core is contained in 
$DZ1N (see table) 



Contents 
of $DZ1N 


Disk I/O 

Subroutine 

Currently 

in Core 


Location in 
Core 


First 

Word 

of User's 

Program 


First 
Word 


Last 
Word 


FFFF 

0000 

0001 


DISKZ 
DISK1 
DISKN 


/00F2 
/00F2 
/00F2 


/01DF 

/0293 

/03A1 


/01FE 
/02B2 
/03C0 



DFT (DEFINE FILE Table) 

— 7 words for each file defined by the user. 

— Located at 1 plus the end of the disk I/O subroutine. 

ARRAYS (In User's Program Area) 

— Located immediately following DEFINE FILE 
Table, if any. 

CONSTANTS AND INTEGERS (In User's Program 
Area) 

— Located immediately following ARRAYS, if any. 

COMMON (The area at "End of Core" defined by 
COMMON statement) 

-- Length of COMMON is contained in $COMN. 

~ Start of COMMON is highest core address, (XFFF), 
minus the Length of COMMON. 

IN-CORE SUBROUTINES (subroutines that are in 
core all the time) 

— Located immediately following user's mainline 
program. 
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— Those subroutines listed in core map that are 
not SOCALS or LOCALS are In-Core subroutines. 

— The load address of these subroutines is listed 
with subroutine name. 



LDD 
BSI 



LIST 

ENTRY POINT 



LOCAL/SOCAL FLIPPER (FLIPR) 

— Load address given in core map under the head- 
ing SYSTEM SUBROUTINES. 

LOCAL AREA (The "Load-on-Call" overlay area) 

— Size depends upon largest LOCAL subroutine 
used. 

-- Beginning core address is FLIPR + /0066. 

— Ending core address is address of SOCAL Area 
minus 1. 

SOCAL AREA (System overlay area) 

— Located immediately following LOCAL Area. 
-- Beginning core address is found at FLIPR 

+ /004D. 

— The first word in SOCAL Area contains the 
word count of SOCAL Area. 

— Ending core address is the beginning address 
+ the word count of the SOCAL Area. 



GENERALIZED SUBROUTINE MAINTENANCE/ 
ANALYSIS PROCEDURE 



LIST 



Flowdiagram 4 provides the procedure to be used for 
detailed analysis of an I/O subroutine. The proce- 
dure is applicable to FORTRAN device, general ISS, 
and system device subroutines. 



TRACE BACK PROCEDURES 



DC 
DC 



PARAMETER 
PARAMETER 



To place the subroutine into a loop: 



Obtain link word from the system device 
subroutine. 

The contents of this link word point to the loca- 
tion following the long BSI instruction. 
Insert into the location following the long BSI 
instruction an MDX instruction back to the LDD 
instruction. 



LIBRARY SUBROUTINES (except 'Z' subroutines 
and PLOTX) 

The linkage to the System Library device subroutines 
(ISSs) are of the following form: 



LIBF 



CALL 



BSI 


3 TVDISP 


BSI 


DC 


CONTROL 


DC 


DC 


ARG 1 


DC 



CALLTV 
CONTROL 
ARG 1 



Flowdiagram 5 provides the procedure to be used to 
trace back from a failing subroutine to the preceding 
portion of the core load, which called the subroutine. 
This procedure can be used to trace all the way back 
to the mainline program. 



DC 



ARGN 



DC 



To place the subroutine into a loop: 



ARGN 



SUBROUTINE LOOPING CAPABILITIES 

SYSTEM DEVICE SUBROUTINES 

The linkages to system device subroutines are of 
the form: 



Insert in the location following the last argument 
an MDX instruction back to the BSI instruction. 
Some of the arguments may have to be changed 
to point to the BSI instruction because they are 
error exits or busy addresses. 
Refer to subroutine data charts for unique 
operating characteristics. 
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Flow 
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Flowdiagram 4 . Generalized Subroutine Maintenance/Analysis Procedure 
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Step 
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Procedure 

Start with 
some failing 
Subroutine 



Get the core map printed during program 
loading 




Yes 



Get the symbolic entry point from the 
Subroutine Data Charts 



Find the symbolic entry name in the core 
map 




No 



Yes 



Add 2 to the Core Load Address obtained 
in step 5 



This procedure assumes the user has already 
analyzed the subroutineper Subroutine 
Analysis Procedures and has blocked out 
a core dump per Core Location Procedures. 



A core map is obtained by punching an 
"L" in column 14 of the XEQ card if the 
program being loaded is in disk system 
format. 



Determine which function was being used 



C Step 19 J 



This is the Core Load Address of that 
entry point. 



The subroutine type is obtained from the 
Subroutine Data Charts 



The contents of the address 
derived in step 5 is the Link 
Word back to the calling 
statement in the calling 
program 



"The Cere Load 
Address contains 
the Link Word 
back to the 
caller. 



( Step 1 1 J 



"This gives the address of the word that 
points to the transfer vector. 








Get the contents of the word located at 
the address computed in step 8 



Get the first word of the transfer vector 
entry 



7CT 

f Step 1 1 J 



Flowdiagram 5. Trace Back Procedures 



"This gives the address of the transfer 
vector. 



"This is the Link Word back to the calling 
statement in the calling subroutine. 
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Step 



Procedure 



© 



© 



© 



© 



© 



© 



© 



Continue now ^ 
having the ad- 
dress of calling 
statement J 




Now determine the name of the failing 
subroutine. 



No 



Yes 



Match the address of the calling pro- 
gram to the addresses in the core map 



C Step 17 J 



Determine which overlay is in core. 



Locate the SOCAL linkage words in the 
core dump 



The word group containing "FOFD" is 
the overlay in core 



Mark the core map to identify all sub- 
routines in the incore overlay 



Use the Core Dump Analysis Procedures 
to locate SOCAL linkage words, 3 for 
each overlay 



-SOCAL LINKAGE- 

Overlay 3 
Overlay 2 
Overlay 1 

-The overlay in core contains 7GFD in 

third word 
-Overlays not in core contain 

70F4 (SOCAL level 2) or 

70F7 (SOCAL level 1) in third word 
"Make a table of subroutines by overlay 
assignment 



xxxx 


xxxx 


70FX 


xxxx 


xxxx 


70FX 


xxxx 


xxxx 


70FX 



Match the address of the ca 1 1 i ng program 
obtained in step 7 (CALL) or step 10 
(LIBF) to the addresses marked instep 15 



The address closest to and less than the 
calling program's address identifies 
the name in core map 



You now have name of calling subroutine. 



Analyze this subroutine using Subroutine 
Analysis Procedures 



C Step 1 J 
Flowdiagram 5. Trace Back Procedures (Continued) 
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Step 





Procedure 







Get the symbolic location of function 
code from the Subroutine Data Charts 




w 




Find the symbolic location in the 
subroutine listing 




V 




Get the relative address of the location 
of function code 




V 




Get the load point address for this 
subroutine from core map 




<r 




Calculate core location of function 
code 




v 




Get the function code from core dump 
and decode with Subroutine Data Chart 





The different entry points are related to 
the various "functions" performed by the 
subroutine. 



Microfiche reference to subroutine list- 
ing is given in Appendix D. 



The address at the symbolic location 
determined in step 20 is the relative 
address . 



The relative address determined in step 
21 plus the load point address determined 
in step 22 gives the location of the 
function code. 



Get the symbolic name for each function 
entry point from the Subroutine Data 
Chart 



( Step 5 ^ 



Flowdiagram 5. Trace Back Procedures (Concluded) 
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SUBROUTINE DATA CHARTS 



SYSTEM DEVICE SUBROUTINE FOR KEYBOARD /CONSOLE PRINTER 

Phase ID: @ KBCP 

Used by: Monitor system programs 

Subroutines required: ILS04 

Linkage: LDD LIST 

BSI L KB000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Read, Convert, 
Print 


/7002 


Address of I/O 
Area 


Word Count 



Postoperative conditions and entry points: 



Function at KB080 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read, Convert, 
Print 


/7002 


KB000+1 


KB000+1 


KB020+1 


KB020+1 





Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 







Significant variables: 



Symbolic location 



KB080 

KB160 

KB170 
KB270 

KB280 

KB290 

KB 370 and KB 370+1 



Contents /Use 



The function is placed here. It becomes an MDX *+2 when executed. 
Original I/O area address. 

Original word count. 

Character buffer area, containing a 12-bit character read from the Keyboard, the 
rotate/tilt code character printed, or a control character. 

Data area pointer, pointing to the next word in the data area into which the EBCDIC 
character will be pi aced. 

Remaining word count. 

Read/Print Control IOCC. 



Program Analysis Procedures 125 



SYSTEM DEVICE SUBROUTINE FOR 1442/1442 

Phase ID: @ 1442 

Used by: Monitor system programs 
Subroutines required: ILS04 
Linkage: LDD LIST 

BSI L CD000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative in 


put parameters: 




Function 


ACC 


EXT 


I/O Area Address 


Read 


/7000 


Address of the I/O 


No word count is used but an 






Area 


80 position area must be 
specified. 


Punch 


/7001 


Address of the I/O 


No word count is used but an 






Area 


80 position area must be 
specified. 


Read 


/7002 


Address of the I/O 


No word count is used but an 






Area 


80 position area must be 
specified. 


Feed 


/7003 


Not used 


Not used 



Postoperative c 


onditions and 


entry points: 










"Fiinntinn n + PnflQfi 


Symbolic 


Return 


Interrupt 


Return 


Interrupt 






entry point 


address at 


entry point 


address at 


level 


Read 


/7000 


CD100+1 


CD100+1 


CD016+1 
CD010+1 


CD016+1 
CD010+1 




4 


Punch 


/7001 


CD000+1 


CD000+1 


CD016+1 
CD010+1 


CD016+1 
CD010+1 




4 


Read 


/7002 


CD000+1 


CD000+1 


CD016+1 
CD010+1 


CD016+1 
CD010+1 




4 


Feed 


/7003 


CD000+1 


CD000+1 


CD010+1 


CD010+1 


4 
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Register status 


















ACC 


. EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 












CD120 


Used 


X 


X 










Interrupt 
level 


Saved at/restored from 
symbolic location 


CD190 


CD190+1 








CD018 


Used 


X 












Interrupt 
level 4 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 


Contents /Use 


CD120 


First column indicator. 




CD250 


Current column address. 




CD260 


Second half of the last IOCC performed, read or punch. 




CD230 


Second half of the last IOCC performed, start read or punch. 




CD188 


Skip indicator; non-zero = take one feed cycle. 




$LAST 


Last card indicator; non-zero = last card. 




$CTSW 


Control card switch; non-zero = control card read. 




$IBSY 


Busy indicator for 1442 ; non-zero = busy. 
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SYSTEM DEVICE SUBROUTINE FOR 2501/1442 

Phase ID: @ 2501 

Used by: Monitor system programs 
Subroutines required: ILS04 
Linkage: LDD LIST 

BSI L RP000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area Address 


Read 


/7000 


Address of I/O Area 


Word count 


Punch 


/7001 


Address of I/O Area 


Not used 


Read 


/7002 


Address of I/O Area 


Word count 


Feed 


/7003 


Not Used 


Not used 



Postoperative conditions and entry points: 



Function a+ T?"P3fin 


Symbolic 


Return 


Interrupt 


Return 


Interrupt 






entry point 


address at 


entry point 


address at 


level 


Read 


/7000 


RP000+1 


RP000+1 


RP020+1 


RP020+1 


4 


Punch 


/7001 


RP000+1 


RP000+1 


RP040+1 
RP020+1 


RP040+1 
RP020+1 




4 


Read 


/7002 


RP000+1 


RP000+1 


RP020+1 


RP020+1 


4 


Feed 


/7003 


RP000+1 


RP000+1 


RP020+1 


RP020+1 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 












RP440 


Used 


X 


X 










Interrupt 
level 


Saved at /restored from 
symbolic location 


RP480 


RP480+1 








RP060 


Used 


X 












Interrupt 
level 4 


Saved at/restored from 
symbolic location 














Used 


X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


RP500 


Current column address. 


RP520 


I/O address for restart information. 


RP600 


Word count for 2501 Reader. 


RP200 


Device last used: 




/1702 = 1442 




/4F01 = 2501 


$LAST 


Last card indicator; non-zero = last card. 


$CTSW 


Control card switch; non-zero = control card read. 


$IBSY 


Busy indicator; non-zero = busy. 
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SYSTEM DEVICE SUBROUTINE FOR CONSOLE PRINTER 

Phase ID: @ CPTR 
Used by: Monitor system programs 
Subroutines required: ILS04 
Linkage: LDD LIST 

BSI L CP000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Restore 

Write 

Skip 


/7000 
/7001 
/7002 


Address of I/O 
Area 


Word Count 



Postoperative conditions and entry points: 



Function at CP120 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


All 




CP000+1 


CP000+1 


CP020+1 


CP020+1 





Register status: 







ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 








CP170+2 






Used 


X 


X 




X 


X 
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Significant variables: 



Symbolic location 


Contents /Use 


CP120 


The function is placed here. This word is executed to decode the function. 




/7000 is a MDX * 




/7001 is a MDX * + 1 




/7002 is a MDX * + 2 


CP200 


Carriage return counter, used for counting carriage returns for restore. 


CP350 


IOCC for printing on console. 


CP350+1 


CP350 contains address of CP450. 


CP370 


Actual word count of message not including trailing blanks. 


CP380 


Data area pointer, pointing to the word containing the 2 EBCDIC characters, 




one of which is being printed. 


CP450 


Print character buffer word. The IOCC points to this word, which contains 




the character or control character just printed. 
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SYSTEM DEVICE SUBROUTINE FOR 1132 

Phase ID: ©1132 

Used by: Monitor system programs 
Subroutines required: ILS01 
Linkage: LDD LIST 

BSI L PN000 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 






Function 


ACC 


EXT 


I/O Area 
Address 


Print 


/7001 


I/O Area address 


< word count 
.180 


Skip to Channel 1 


/7000 




I/O Area is 
referenced 


Space Immediate 


/7002 


Not used 


Not used 



Postoperative conditions and entry points: 



Function at PN380 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Print 


/7001 


PN000+1 


PN000+1 


PN010+1 


PN010+1 


1 


Skip 


/7000 


PN000+1 


PN000+1 


PN010+1 


PN010+1 


1 


Space 


/7002 


PN000+1 


PN000+1 


PN010+1 


PN010+1 


1 



Register Status 


















ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 






PN400+1 


PN400+3 


PN400+5 




Used 


X 


X 


X 


X 


X 


X 


Interrupt 
level 1 


Saved at/restored from 
symbolic location 


PN200 


PN200+1 


PN440+1 


PN440+3 


PN440+5 


PN450 


Used 


X 


X 


X 


X 


X 


X 
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Significant variables: 



Symbolic location 


Contents /Use 


PN040 


Last emitter character read as a result of a read emitter response interrupt. 


PN050 


Second word of Sense-DSW-with-reset IOCC. 


PN060 


Last DSW sensed in interrupt. 


PN070 


Second word of Sense-DSW-with-no-reset IOCC. 


PN080 


First word of Read emitter IOCC, contains the address of location PN040. 


PN090 


Second word of Read emitter IOCC. 


PN100 


First word of Start Printer IOCC, also the idle scan counter. 


PN110 


Second word of Start Printer IOCC. 


PN120 


Print scan counter. 


PN130 


Second half of Stop Printer IOCC. 


PN150 


Second half of Start Carriage IOCC. 


PN170 


Second half of Stop Carriage IOCC. 


PN180 


First half of Stop Carriage IOCC and mask to check bits 3, 5, and 6 of Printer DSW. 


PN370+1 


Address of the I/O area. 


PN460+1 


Word count. 


PN470+1 


Address of message. 


$PBSY 


/0001 indicates I/O buffer is busy and 49 print scan cycles have not been 




completed. 




/0000 indicates routine may still be busy completing the 16 idle scans; however, 




I/O buffer is ready to accept new input. 


$CH12 


Zero = Channel 12 has not been sensed. 




Non-Zero = Channel 12 has been sensed and skip to channel 1 has not been 




performed. 
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SYSTEM DEVICE SUBROUTINE FOR 1403 

Phase ID: @1403 

Used by: Monitor system programs 

Subroutines required: ILS04 

Linkage: LDD LIST 

BSI L PR000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Print 1 Line 

Skip 

Space Immediate 


/7001 
/7000 
/7002 


Address of 
I/O Area 

Address of 
I/O Area 

Not used 


< word count £ 60 

I/O Area is 
referenced 

Not used 



Postoperative conditions and entry points: 



Function at PR150 


I/O Area 
word count 


Location 
reference 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Print 


/7001 


Non-Zero 




PR000+1 


PR000+1 




Skip 


/7000 


Not used 










Space 


/7002 


Not Used 











Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 






PR230+1 


PR240+1 


PR250+1 




Used 


X 


X 


X 


X 


X 


X 



134 



Significant variables: 



Symbolic location 


Contents /Use 


PR140 


A NOP after the following areas have been adjusted to the correct address as a 




result of relocation: 




PR300 




PR500+1 




PR180+2 




PR280+2 




PR170+1 




PR220+2 




PRO 80 




PR400+1 




PR430+1 


PRO 80 


First word of Print IOCC, contains address of print buffer. 


PRO 80+1 


Second half of Print IOCC. 


PR110 


Second half of Sense-without- reset IOCC. 


PR300 


First word of Skip-to-channel-12 IOCC. 


PR300+1 


Second word of Skip-to-channel-12 IOCC. 


PR090 


First word of Space immediate IOCC. 


PR090+1 


Second word of Space immediate IOCC. 


PR290+1 


Address of the user's I/O area. 


PR060 


Storage location for the last DSW sensed during interrupt; also, first word of 




Sense-DSW-with-reset IOCC. 


PR070 


Second word of Sense-DSW-with-reset IOCC. 


PR110 


Second word of Sense-DSW-without-reset IOCC. 


PR330 


60-word buffer from which the line is printed. 


$PGCT 


Binary page count, where < page count < 32767 


$CH12 


Channel 12 switch indicating channel 12 detected in DSW during interrupt; 




not reset until a skip to channel 1 is requested by the user. 


$PBSY 


Printer busy switch, modified during execution of routine. 




($PBSY) = Zero: routine and printer not busy. 




= Positive: transmission to printer is in progress; transmission 




complete has not been received; subroutine I/O buffer is busy. 




= Negative: transmission complete has been received; subroutine 




I/O buffer can now be set up with new message. 
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SYSTEM DEVICE SUBROUTINE FOR 1134/1055 

Phase ID: @ 1134 

Used by: Monitor system programs 

Subroutine required: none 

Linkage: LDD LIST 

BSI L PT000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Read with con- 
version 

Punch 

Read without 
conversion 


/7000 

/7001 
/7Q02 


Address of I/O Area 

Address of I/O Area 
Address of I/O Area 


Word Count 

Word Count 
Word Count 



Postoperative conditions and entry points: 



Function at 


PT060 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Interrupt 
level 


Read with con- 


/7000 


PT000+1 


PT000+1 


PT010+1 




version 












Punch 


/7001 


PT000+1 


PT000+1 


PT010+1 




Read without 


/7002 


PT000+1 


PT000+1 


PT010+1 




conversion 













Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 






X 
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Significant variables: 



Symbolic location 


Contents /Use 


PT000+1 


Return address to caller from main line. 


PT010+1 


Return address from interrupt. 


PT060 


Function code, executed as follows: 




/7000 = MDX * 




/7001 = MDX *+l 




/7002 = MDC *+2 


PT340 


Data area pointer. 


PT360 


Remaining word count. 


PT370 


Switch used for reading or punching: /0001 = punch, /0002 = read. 


PT380 


Switch used to indicate if conversion of information read is needed: 




zero = no conversion, 




non-zero = conversion. 


PT460 and PT460+1 


IOCC for read and punch. 


PT480 


Data buffer. The character to be read or punched is contained here. 


PT500 


Counter for counting first 3 characters. 
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SYSTEM DEVICE SUBROUTINE FOR DISK — DISKZ 

Phase ID: @DZID 

Used by: Monitor system programs 

Assembler Language programs 

FORTRAN programs 
Subroutines required: ILS02 
Linkage: LDD LIST 

BSI L DZ000 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


I/O Area 
Address + 1 


Read 


/7000 or 
/0000 


Address of the 
I/O Area (must 
be even) 


< word count 
< length of defined 
data area 


Drive code and 
sector address 


Write 


/7001 


Address of the 
I/O Area (must 
be even) 


< word count 
< length of area 
to be written 
on disk 


Drive code and 
sector address 


Find 


/0000 


Address of the 
I/O Area (must 
be even) 


/0000 


Drive code and 
sector address 



Postoperative conditions and entry points: 



Function at DZ945 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 


/0000 


DZ000 


DZ100+5 


DZ150 


DZ150 


2 


Write 


/0100 


DZ000 


DZ100+5 


DZ150 


DZ150 


2 


Find 


/0000 


DZ000 


DZ100+5 


DZ150 


DZ150 


2 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 






DZ100+1 


DZ100+3 






Used 


X 


X 


X 


X 




X 
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Significant variables: 






Symbolic location 


Contents /Use 


DZ350+1 


Address of the word in COMMA containing the current position of the heads 
referenced disk. 


on the 


DZ230+1 


Address of the first word of the I/O Area. 

C[C(DZ230+1)] = originally requested word count 
C[C(DZ230+1) + 1] = originally requested sector address 




DZ904 and 
DZ905 


First and second words of the last IOCC performed (excluding sense DSW). 




DZ908 and 
DZ909 


First and second words of forced- Read after-Seek IOCC. 




DZ901 


Sector address of previously executed forced Read. 




DZ906 and 
DZ907 


IOCC developed for user-requested function. 




DZ975 


Second word of Read-Back- Check IOCC. 




DZ912 


Word count remaining to be read or written from original. 




DZ913 


Next sector to be read or written. 




DZ910 


Second word of Seek IOCC. 





Program Analysis Procedures 139 



CARDZ 

Flowcharts: FIO04-05 

Used by: SFIO 

Subroutine required: HOLEZ, ILS01, ILS04 

Linkage: UBF CARDZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Peroperative input parameters: 



Function 


ACC 


XR1 


XR2 


Read 
Write 


/OOOO 
/0002 


I/O Area Address 
I/O Area Address 


Word Count 
Word Count 



Postoperative conditions and entry points: 



Function at CZ912 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 




Interrupt 
level 


Read 
Write 


/0000 
/0002 


CARDZ 
CARDZ 


LIBF TV link 
word 

LIBF TV link 
word 


CZ100 
(column) 

CZ110 
(op complete) 


CZ100 
(column) 

CZ110 
(op complete) 


1 

4 



Register status 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


CZ904 
CZ 904+1 


Start read or punch IOCC, set by program depending on function used to 
initiate operation. 

If read, CZ904 + 1 = CZ906 + 1 




If write, CZ904 + 1 = CZ908 + 1 


CZ902 


Read or Punch IOCC, set by program depending on function to read or punch 
columns. 




If read, CZ902 + 1 = CZ906 




If write, CZ902 + 1 = CZ908 


CZ923 


Address pointer to I/O area, incremented on each column interrupt. 


CZ925 


Original I/O area address -1. 


CZ920 


DSW is saved here on an operation- complete interrupt. 


CZ010 


Switch used for waiting for interrupt: 

Set positive when waiting for any interrupt. 

Set zero When column interrupt occurs. 

Set negative when op-complete interrupt occurs. 


$RWCZ 


Previous operation switch: 

/0000 = previous operation was a read. 
/0002 = previous operation was a write. 




If a write function is to be performed and the previous operation was a write, 
this switch causes CARDZ to read a card and test for // in columns 1-2. 


CZ913 


Switch used to test for // card before writing on it; zero means only reading 
or previous operation before write was a read. 


CZ918-3 


Buffer area for saving first 3 columns; rest of card is read into fourth word 


thru 
CZ918 


when reading before write. 

. . , , _ ._ _ 
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PNCHZ 

Flowchart: FIOll 

Used by: SFIO 

Subroutines required: HOLEZ, ILS01, ILS04 

Linkage: LIBF PNCHZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative in 


put parameters 






Function 


ACC 


XR1 


XR2 


Write 


/0002 


I/O Area Address 


Word (character) count 
of 80 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Write 




PNCHZ 


LIBF TV link 
word 


PZ060 
(column) 

PZ080 

(op complete) 


PZ060 
PZ080 




4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 
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Significant variables: 




Symbolic location 


Contents /Use 


PZ340 


Address pointer to I/O area; First word of Punch IOCC, Incremented on 




each column interrupt. 


PZ340+1 


Second word of Punch IOCC. 


PZ360 and 


Feed IOCC for initiating punch operation. 


PZ360+1 




PZ400 


Error display indicator. 


PZ400+1 


Second word of last card feed IOCC. 


PZ120+1 


Original I/O area address. 


PZ040 


Switch used for waiting for operation — complete interrupt: 




zero = op complete interrupt has occurred 




non-zero = waiting for op-complete 
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READZ 

Flowchart: FIO08 

Used by: SFIO 

Subroutines required: HOLEZ, ILS04 

Linkages: LIBF READZ (BSI 3 TV DISP) 

where XR1 = I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


XR1 


Read 


I/O Area Address 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 




READZ 


LIBF TV 
link word 


RZ060 


RZ060 


4 



Register status: 







ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 


Contents/Use 


RZ360 

RZ360+1 

RZ380 


I/O Area Address; also, first word of Read IOCC. 

Second word of Read IOCC. 

Switch used for interrupt processing: 
non-zero = waiting for interrupt 
zero = set by occurrence of interrupt 
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TYPEZ 

Flowchart: FI012 

Used by: SFIO 

Subroutines required: HOLEZ, GETAD, ILS04 

Linkage: L1BF TYPEZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 



Function 


ACC 


XR1 


XR2 


Read 
Write 


/OOOO 
/0002 


I/O Area Address 
I/O Area Address 


Word count, set to 80 by 
TYPEZ 

Character count 



Postoperative conditions and entry points: 



Function at KZ910 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 
Write 


/0000 
/0002 


TYPEZ 
TYPEZ 


TYPEZ+2 
TYPEZ+2 


KZ100 
KZ100 


KZ100 
KZ100 


4 
4 



Register status: 



11 


ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 







Significant variables: 



Symbolic location 


Contents /Use 


KZ911 
KZ210+1 
KZ910 
KZ906 

KZ914 
KZ913 
KZ900 
KZ902 
KZ912 


Original character count plus one. 

Original I/O area address. 

Read- Write function indicator word. 

IOCC used to print characters from KZ914. 

Buffer word used to hold character to be printed. 

Saved DSW from Sense- with- reset in interrupt routine. 

IOCC used to read Keyboard character into I/O area. 

IOCC used to release Keyboard. 

Number of remaining characters to be typed. (Each character read is typed. ) 
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WRTYZ 

Flowchart: FIO09 

Used by: SFIO 

Subroutines required: GETAR, EBCTR, ILS04 

Linkage: LIBF WRTYZ (BSI 3 TV DISP) 

where XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 




Function 


XR1 


XR2 


Write 


I/O Area Address 


Character Count 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 




Interrupt 
level 


Write 




WRTYZ 


WRTYZ+2 


TZ100 


TZ100 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 







Significant variables: 




Symbolic location 


Contents/Use 


TZ907 
TZ908 
TZ902 


Number of characters remaining to be printed. 
Output buffer for printing character. 
IOCC used to print character out of TZ908. 
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PRNZ 

Flowchart: FIO10 

Used by: SFIO 

Subroutines required: ILS04 

Linkage: LIBF PRNZ (BSI 3 TV DISP) 

where XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 



Function 


XR1 


XR2 


Print 


I/O Area Address 


Word count, including 1 for 
carriage control character 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Print 




PRNZ 


PRNZ+2 


INTZ 


INTZ 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 


Contents /Use 


PRNT 

SIO+1 

COUNT 

TABL 

TRCSW 

CHAR 


First word of Print IOCC, Address of output area. 
Address for store after character conversion. 
Counter for character conversion. 
EBCDIC-to- 140 3-Printer- code conversion table. 
Transfer complete switch: zero = transfer complete. 
EBCDIC character being converted. 
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PRNTZ 

Flowchart: FIO06 

Used by: SFIO 

Subroutines required: ILS02 

Linkage: LIBF PRNTZ (BSI 3 TV DISP) 

where XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 




Function 


XR1 


XR2 


Print 


Output buffer address (first char- 
acter is carriage control) 


Word count, including carriage 
control character. 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Print 




PRNTZ 


PRNTZ+2 


AZ100 


AZ100 


2 



Register status: 







ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 


Interrupt 
level 2 

_ _ 


Saved at/restored from 
symbolic location 














Used 
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Significant variables : 



Symbolic location 


Contents /Use 


AZ150+1 


Address of first data word in output buffer. 


AZ919 


Word count. 


AZ900 


Interrupt exit switch: 




+ , if line is complete 




- , if idles complete 




, if waiting 


AZ922 


Space counter (positive number of spaces). 


AZ914 


DSW storage. 


AZ924 


Scan counter (print). 


AZ918 


Emitter- character storage. 
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PAPTZ 

Flowchart: FIO07 

Used by: SFIO 

Subroutine required: ILS04 

Linkage: LIBF PAPTZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative inj 


3ut parameters: 




Function 


ACC 


XR1 


XR2 


Read 
Write 


/OOOO 
/0002 


Address of I/O Area 
Address of I/O Area 


Word count, set to 120 
by PAPTZ 

Word count 



Postoperative conditions and entry points: 



Function at BZ924 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 
Write 


/0000 
/0002 


PAPTZ 
PAPTZ 


PAPTZ+2 
PAPTZ+2 


BZ100 
BZ100 


BZ100 
BZ100 


4 
4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 
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Significant variables: 



Symbolic location 


Contents /Use 


BZ924 
BZ929 
BZ300+1 
BZ010 

BZ902 
BZ904 
BZ925 

BZ926 
BZ906 


Read/Write indicator. 

Number of words remaining to be read or punched. 

Address of I/O Area. 

Routine busy indicator: zero, no interrupt waiting to be processed; non- 
zero, an interrupt waiting to be processed. 

IOCC used to Start paper tape reader. 

IOCC used to Read paper tape. 

Read area for BZ904, Read paper tape IOCC. 
Write area for BZ906, Punch paper tape IOCC. 

DSW from sense- with- re set in interrupt subroutine. 

IOCC used to Punch paper tape. 
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CARDO 

Used by: Assembler Language programs 

Subroutines required: ILSOO, ILS04 

Linkage: LIBF CARDO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if 
busy 


Return to this word if not 
busy 


Not used 


Read 


/1000 


I/O Area Address 


NSI 


Word count 


Punch 


/2000 


I/O Area Address 


NSI 


Word count 


Feed 


/3000 


Not used 


NSI 


Not used 


Stack 


/4000 


Not used 


NSI 


Not used 



Postoperative conditions and entry points: 





at CA20 


Symbolic 


Return 


Interrupt 


Return 




Interrupt 






entry point 


address at 


entry point 


address at 


level 


Test 




CARDO 


C A 34+1 








Read 


/7000 


CARDO 


C A 34+1 


INTl 
INT2 


INTl 
INT2 




4 


Punch 


/7001 


CARDO 


C A 34+1 


INTl 
INT2 


INTl 
INT2 




4 


Feed 


/7002 


CARDO 


CA34+1 


INT2 


INT2 


4 


Stack 


/7003 


CARDO 


CA34+1 









Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


TEMP 




CA30+1 


CA31+1 




CA32 


Used 


X 




X 


X 
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Significant variables: 



Symbolic location 


Contents /Use 


COUNT 


Number of words left to be transferred. 




COLM 


Address being transferred to or from. 




RSTRT 


Word count for restart. 




RSTRT+1 


Starting address for restart. 




BUSY 


Busy indicator; non-zero = busy. 




CHAR 


Second half of the Sense DSW IOCC that was 


last executed. 


ERROR 


Skip indicator; non-zero = feed a card. 
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CARD1 

Used by: Assembler Language programs 
Subroutines required: ILSOO, ILS04 
Linkage: LIBF CARD1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if 
busy 


Return to this word 
if not busy 


Not used 


Read 


/1000 


I/O Area Address 


Address of user 
error routine 


Word count 


Punch 


/2000 


I/O Area Address 


Address of user 
error routine 


Word count 


Feed 


/3000 


I/O Area Address 


Address of user 
error routine 


Not used 


Stack 


/4000 


Not used 


Not used 


Not used 



Postoperative conditions and enter points: 





at CR24+1 


■ ■ — — n 

Symbolic 


Return 


Interrupt 


Return 


Interrupt 






entry point 


address at 


entry point 


address at 


level 


Test 




CARD1 


EXIT+1 








Read 


/0001 


CARD1 


EXIT+1 


INTl 
INT2 


INTl 
INT2 




4 


Punch 


/0002 


CARD1 


EXIT+1 


INTl 
INT2 


INTl 
INT2 




4 


Feed 


/0003 


CARD1 


EXIT+1 


INT2 


INT2 


4 


Stack 


/0004 


CARD1 


EXIT+1 
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Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


TEMP 


CR42+1 


CR44+1 






CR46 


Used 


X 










X 



Significant variables: 



Symbolic location 


Contents /Use 


RESTR 


Count information for restart. 


RESTR+1 


I/O area address for restart. 


RESTR+2 


Address of error routine; also, busy indicator. 


ERROR 


Skip indicator; non-zero = feed a card. 


INDIC 


Feed check at read station indicator; non-zero = feed check. 


INIT 


Last initiate command given. 


COLM 


Address being transferred to or from. 


COUNT 


Number of words to transfer. 


CHAR 


Second half of the Sense DSW IOCC used. 
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READO 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF READO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


I/O Area 


Test 


/OOOO 


Return to this word if busy 


Not used 


Read 


/1000 


Address of word count 


Word count 


Feed 


/1000 


Address of word count 


Word count 
(must be zero) 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


READO 


RE180+1 








Read 


READO 


RE 180+1 


RE048 


RE048 


4 


Feed 


READO 


RE 180+1 


RE048 


RE 048 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


RE 324 




RE 144+1 


RE 156+1 




RE 168 


Used 


X 




X 









Significant variables: 



Symbolic location 


Contents /Use 


RE 22 8 
RE264 


Busy indicator; non-zero indicates busy. 
I/O area address. 
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READ1 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF READ1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters 








Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if busy 


Return to this word if not 
busy 


Not used 


Read 


/1000 


I/O Area Address 


Address of user's error 
routine 


Word count 


Feed 


/1000 


I/O Area Address 


Address of user's error 
routine 


Word count 
(must be zero) 



Preoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


READ1 


RE 180+1 








Read 


READ1 


RE 180+1 


RE048 


RE 048 


4 


Feed 


READ1 


RE 180+1 


RE 048 


RE 048 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 




Status 


Mainline 


Saved at/restored from 
symbolic location 


RE 324 




RE 144+1 


RE156+1 




RE 16 8 


Used 


X 




X 









Significant variables: 



Symbolic location 


Contents /Use 


RE228 
RE264 
RE360+2 
RE370+2 


Busy indicator; non-zero indicates busy. 

I/O Area address. 

Address of user's error routine for read error. 

Address of user's error routine during last card. 

■ ■ . . — 
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PNCHO 

Used by: Assembler Language programs 
Subroutines required: ILSOO, ILS04 
Linkage: LIBF PNCHO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 

Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if busy 


Return to this word if not 
busy 


Not used 


Punch 


/2000 


Address of I/O Area 


Return to this word 
following call 


Word count 


Feed 


/3000 


Not used 


NSI 


Not used 



Postoperative conditions and entry points: 



Function a^ nA9f» 


Symbolic 


Return 


Interrupt 


Return 


Interrupt 






entry point 


address at 


entry point 


address at 


level 


Test 




PNCHO 


C A 34+1 








Punch 


/7001 


PNCHO 


C A 34+1 


INTl 
INT2 


INTl 
INT2 




4 


Feed 


/7002 


PNCHO 


CA34+1 


INT2 


INT2 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


TEMP 




CA30+1 


CA31+1 




CA32 


Used 


X 




X 
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Significant variables: 



Symbolic location 


— — — — — — — — — • ■ ■ — ■ 

Contents/Use 


CHAR 


Second half of DSW last sensed. 


COLM 


Address being punched from. 


BUSY 


Non-zero indicates busy. 


COUNT 


Number of columns to be punched. 


ERROR 


Non-zero indicates feed a card (SKIP). 


RSTRT 


Word count for restart. 


RSTRT 


Data address for restart. 
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PNC HI 

Used by: Assembler Language programs 
Subroutines required: ILSOO, ILS04 
Linkage: LIBF PNCH1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if busy. 


Return to this word if not 
busy 


Not used 


Punch 


/2000 


Address of I/O Area 


Address of user's error 
routine 


Word count 


Feed 


/3000 


Not used 


Address of user's error 
routine 


Not used 



Postoperative conditions and entry points: 










Function at CA20 


Symbolic 


Return 


Interrupt 


Return 


Interrupt 




entry point 


address at 


entry point 


address at 


level 


Test 




PNC HI 


CA34+1 








Punch 


/7001 


PNCH1 


C A 34+1 


INTl 
INT2 


INTl 
INT2 




4 


Feed 


/7002 


PNCH1 


CA34+1 


INT2 


INT2 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic locations 


TEMP 




CA30+1 


CA31+1 




CA32 


Used 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


CHAR 


Second half of Sense DSW IOCC. 


COLM 


Address being punched from. 


BUSY 


Busy indicator; non-zero = busy. 


COUNT 


Number of columns to punch. 


ERROR 


Non-zero indicates feed a card (SKIP). 


INDIC 


Read station feed check if non-zero. 


RSTRT 


Word count for restart. 


RSTRT+1 


Data address for restart. 


RSTRT+2 


Address of user's error routine. 
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TYPEO 



Used by: Assembler Language programs 

Subroutine required: ILS04 

Linkage: LIBF TYPEO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 



Preoperative input parameters: 






Function 


ARG1 


ARG2 


I/O Area Address 


Test 


/OOOO 


Return to this word if opera- 
tion is not complete 




Read- Print 


/1000 


I/O Area Address 


Word Count 


Print 


/2000 


I/O Area Address 


Word Count 



Postoperative conditions and entry points: 



Function 


at TY24 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




TYPEO 


EXIT+1 








Read Print 


/7000 


TYPEO 


EXIT+1 


INT1 


INT1 


4 


Print 


/7001 


TYPEO 


EXIT+1 


INT1 


INT1 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic locations 


SAVAQ 


SAVAQ+1 


SAV1+1 


SAV2+1 




SAVST 


Used 


X 




X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


TY24 


Functional branch instruction: 




/7000 = MDX * if Read/Print. 




/7001 = MDX *+l if Print. 


READ 


Pointer to data input area. 


READ+1 


Last half of Read IOCC. 


RSTRT+1 


Data area address. 


RSTRT+2 


Word count. 


COUNT 


Contents depend on the function: 




/7000 - number of words remaining to be read. 




/7001 - count of remaining characters to be printed, initially set to twice the 




word count. 


PRINT 


IOCC used to print character from TEMPI. 


INTT 


IOCC used to release keyboard. 


DSWRD 


Device status word from sensing device in interrupt routine. 


RIGHT 


Switch indicating which character in TEMPI will be used next: 




/0000 = Use right character 




/0001 = Go get next word from data area and use left character. 


TEMPI 


Contents depend on the function: 




/7000 - rotate/tilt character converted from hollerith input character from 




keyboard. Character is printed on console from this area. 




/7001 - Temporary storage for printing a character (high order 8 bits was last 




character printed). 


TY90+1 


Address of Hollerith table. 


1 TY92+1 


Address of Rotate/Tilt character table. 
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PRNT1 

Used by: Assembler Language programs 

Subroutines required: ILS01 

Linkage: LIBF PRNT1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


Test 


/OOOO 


Returns to this word if 


Returns to this word if routine 






routine is busy 


is not busy 


Print 


/20X0 

X = space control 

, space after print 

1 , suppress space 


I/O Area Address 


Error routine address 


Control 


/3XY0 


Return to this word. 




Carriage 


X = immediate control 
Y = after print control 






Print 


/40X0 


I/O Area Address 


Error routine address 


Numeric 


X = space control 

, space after print 

1 , suppress space 







Postoperative conditions and entry points: 



Function at 


PARI 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




PRNT1 


EXIT+1 








Print 


/02X0 


PRNT1 


EXIT+1 


INT1 


INT1 


1 


Control Carriage 


/3XY0 


PRNT1 


EXIT+1 


INT1 


INT1 


1 


Print Numeric 


/40X0 


PRNT1 


EXIT+1 


INT1 


INT1 


1 
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Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


AQ 


AQ+1 


FC58+1 


FC58+3 




FC58+5 


Used 


X 


X 


X 


X 




X 


Interrupt 
level 1 


Saved at/restored from 
symbolic location 








OUT+1 






Used 


X 






X 







Significant variables: 



Symbolic location 


Contents /Use 


ILLGL+1 


Address of call +1. 




NEGWD 


2's complement of the word count. 




CLEAR 


Last entry to the clear print buffer routine. 




DSW 


DSW from the last interrupt. 




SPSK 


Space count if (-). Skip if (+). Compare for skip 


response interrupt. 


PASS 


Interrupt switch. 




FC16+1 


Address of call +2. 




STRE3+2 


Address of call +3. 




SCAN+1 


End of the I/O area. 




CTR48 


Scan counter to determine when line is complete. 




CTR16 


Counter for 16 idles. 
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PRNT3 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF PRNT3 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 






Function 


ARG1 


ARG2 


ARG3 


Test 


/OOOO 


Return to this word if 


Return to this word if not 






busy 


busy 


Print 


/20Z0 

Z = space control 
1, space suppressed 
0, space after print 


Address of I/O Area 




Control 


/3XY0 

X = immediate control 
Y = control after print 







Postoperative conditions and entry points: 










Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




PRNT3 


W3160+1 








Print 


Third digit at 
W3540 


PRNT3 


W3160+1 


W3020 


W3020 


4 


Control 


Third digit at 
W3540 


PRNT3 


W3160+1 


W3020 


W3020 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


W3520 


W3520+1 


W3100+1 


W3120+1 




W3140 


Used 


X 


X 


X 


X 




X 
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Significant variables: 




Symbolic location 


Contents /Use 


W3540 

W3540+1 
W3920 
W3900 
W3260+1 


First word of the Sense- DSW-without- reset IOCG; also, Carriage control 
character. 

Routine busy switch, non-zero indicates the routine is processing a message. 

First word of 60-word output buffer. 

DSW in interrupt, except carriage interrupt; also carriage control in interrupt. 

Address of user output area. 
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PAPT1 

Used by: Assembler Language programs 

Subroutines used: ILS04 

Linkage: LIBF PAPT1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 




Return to this word if 
the operation is not 
complete 


Return to this word if 
previous operation is 
complete 




Read 


/1X00 




I/O Area Address 


Address of user error 


Word count (1/2 the 




X=0, 


Check 




routine 


number of char- 




X=l, 


No check 






acters) 


Punch 


/2X00 




I/O Area Address 


Address of user error 


Word count (1/2 the 




X=0, 


Check 




routine 


number of char- 




X=l, 


No check 






acters) 



Postoperative conditions and entry points: 



Function 


at DEVIC 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




PAPT1 


RET+1 








Read 


/0002 


PAPT1 


RET+1 


INT1 


INT1 


4 


Punch 


/0001 


PAPT1 


RET+1 


INT1 


INT1 


4 



Register status 


: 
















ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVA 




XRL+1 






XRL+2 


Used 


X 




X 






X 
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Significant variables: 



Symbolic location 


Contents /Use 


DEVLC 


Function indicator: 
/0002 = Read. 
/0001 = Punch- 


CHECK 


Switch for controlling checking function: 
/FFOO = Do not check. 
/0000 = Check for a Delete or Stop character. 


WDCNT 


Count of remaining words. 


IOAR 


Data area pointer. 


USERR+2 


Address of user error routine. 


BUF 


Temporary storage for word containing 2 characters to be punched. 


SENSE 


Sense DSW for paper tape. 


READS 


IOCC for starting paper tape reader. 


IOCC 


Read or punch control word. 


CHART 


Character switch: 

(Punch) Even = Both characters in the word have been punched, go get 
the next character. 
Odd = Punch the right character. 
(Read) Even ■= Second character of word was just read. 
Odd = First character of word was just read. 
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PAPTN 

Used by: Assembler Language programs 

Subroutine required: ILS04 

Linkage: LIBF PAPTN (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area 
Address 


Test 


/OOOO 


Return to this word if 


Return to this word if 






Test reader 


the previous operation 


previous operation is 






/0001 


is not complete 


complete 






Test punch 








Read 


/1X00 


I/O Area Address 


Address of user 


Word count 




X=0, Check 




error routine 


(1/2 the number 




X=l, No check 






of characters) 


Punch 


/2X00 


I/O Area Address 


Address of user 


Word count 




X=0, Check 




error routine 


(1/2 the number 




X=l, No check 






of characters) 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




PAPTN 


RET+1 








Read 


RDTBL 


PAPTN 


RET+1 


INTN 


INTN 


4 


Punch 


PNTBL 


PAPTN 


RET+1 


INTN 


INTN 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVA 




XR1+1 


XR2+1 




XR2+2 


Used 


X 




X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


CHECK 


/0000 = Check for a Delete or Stop character. 




/FFOO = Do not check. 


WDCNT 


Number of words remaining to be punched. 


RWDCT 


Number of words remaining to be read. 


IOAR 


Address pointer to user data area (punch). 


RIOAR 


Address pointer to user data area (read). 


USER1 


Address of user error routine (punch). 


RUSE1 


Address of user error routine (read). 


BUF 


Temporary storage for word to be punched. 


RBUF 


Temporary storage for word to be read into. 


Index Register 2 


Address of RDTBL, if reading. 




Address of PNTBL, if punching. 


IOCC 


IOCC used for punching a character. 


READS 


IOCC used to start tape reader. 


CHAR 


Switch used to indicate which half of the word is to be used: 


(RCHAR) 


Even = Both characters in word used. 




Odd = First character of word was used. 


SENSR 


DSW received from Sense-with- reset IOCC. 


RIOCC 


IOCC used to read paper tape. 


IOCC2 


IOCC used to punch a Delete character. 
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PL0T1 

Used by: Assembler Language programs 

Subroutines used: ILS03 

Linkage; LIBF PLOT1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 
Plot 


/OOOO 
/1000 


Return here if routine 
busy 

I/O Area Address 


Return here if routine 
not busy 

Address of user's 
error routine 


Not used 
Word count 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 
Plot 


PLOT1 
PLOT1 


RET+1 
RET+1 


INT1 


INT1 




3 

i _ .„ . 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVAQ 


SAVAQ+1 


XR1+1 






XR1+2 


Used 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


DEVIC 


Non-zero indicates invalid device. 


BUSY 


Non-zero indicates busy. 


DIGIT 


Counter to determine which section of packed word is being used. 


SENSE 


Word count, number of words for this plot. 


IOAR 


Output area address in user program. 


BUF 


Word being decoded for plotting. 


FIRST 


Non-zero indicates first command. 


DUPCT 


Non-zero indicates repeat some command or plot. 


CTRL 


Last plot command executed. 


WORK 


Command that has been separated out of BUF. 
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OMPR1 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF OMPR1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


EXT 


Test 


/OOOO 


Return to this word if 
program is busy 


Return to this word if 
program is not busy 






Timing 

Mark 

Test 


/0001 


Return to this word if 
bit 8 on in DSW 


Return to this word if bit 
8 is off in DSW 






Read 
Read 


/2000 
/3000 


I/O Area Address 

NSI (return to this 
word after feed) 


Address of user error 
routine 

NSI 


/X— 
X = 1, 
X = 0, 

/x— 

X = 1, 
X = 0, 


Stacker Select 
No Stacker 
Select 

Stacker Select 
No Stacker 
Select 


Disconnect 


/4000 


NSI (return to this 
word after disconnect) 


NSI 






Stacker 
Select 


/5000 


NSI (return to this 
word after Stacker 
Select) 


NSI 







Postoperative conditions and entry points: 



Function at 


FUN 


Symbolic 


Return 


Interrupt 


Return 


Interrupt 


entry point 


address at 


entry point 


address at 


level 


Test 




OMPR1 










Timing Mark 




OMPR1 










Test 














Read 


/FFFE 


OMPR1 




INT1 


INT1 


4 


Feed 


/0000 


OMPR1 




INT1 


INT1 


4 


Disconnect 




OMPR1 










Stacker 




OMPR1 










Select 












■ 
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Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVAQ 


SAVAQ+1 


SAVX1 


MPR32+1 




MPR34 


Used 


X 


X 


X 






X 



Significant variables: 



Symbolic location 


Contents /Use 


Accumulator 


At entry to a user error routine: 

ACC = 0001, Master Mark detected. 

ACC = 0002, Read Error and/or Timing Mark Error. 

ACC = 0003, Hopper Empty. 

ACC = 0004, Document Selected. 




ERREX+2 


Entry to user's error routine. 




FUN 


Function: 

/FFFE = Read (2000) 
/0000 = Feed (3000) 




READ 


IOCC for Read function. 




READ+1 


Address of user I/O area. 




FEED 


/0000, Feed has already been performed. 

/0001, Feed has not been initiated for this Read function. 




CNTRL and 
CNTRL+1 


IOCC for Feed function. 




STKSL and 
STKSLH-1 


IOCC for Stacker select. 




DSCNT and 
DSCNT+1 


IOCC for Disconnect function. 




BUSY 


Program busy indicator: 
zero = Not Busy, 
non-zero = Busy. 




FCI 


Zero, No first character interrupt. 

Non Zero, Have received first character interrupt. 




MMARK 


Master mark indicator switch: 
zero = No master mark, 
non-zero = Master mark read. 




Index Register 1 


Address of the calling sequence. 
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WRTYO 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF WRTYO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


I/O Area Address 


Test 
Print 


/OOOO 
/2000 


Return to this word if 
operation is not complete 

I/O Area Address 


Word Count 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 
Print 


WRTYO 
WRTYO 


WR36+1 
WR36+1 


INT- 


INT1 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVA 




WR30+1 


WR32+1 




WR34 


Used 


X 




X 


X 




X 



Significant variables: 



Symbolic location 


Contents /Use 


COUNT 

IOAR 

TEMPI 

PRINT 

PRINT+1 

RIGHT 

TEMP 


Dynamic word counter; number of words remaining to be printed. 

Pointer to data area, address of last word used. 

Character to be printed, high order 8 bits was last character printed. 

First word of IOCC to print character out of TEMPI. 

Second word of IOCC to print character out of TEMPI. 

Switch indicating which character in TEMPI will be used next: 
/0000 = Right character. 
/0001 = Go get next word from date area and use left character. 

Right half of Sense- with- reset IOCC. 



176 



DISK1 

Used by: Monitor system programs, Assembler Language programs 

Subroutines required: ILS02 

Linkage:* for monitor system programs 





LDD 




LIST 




BSI 


L 


D0000 


LIST 


DC 




FUNCTION CODE 




DC 




I/O AREA ADDRESS 



for Assembler Language programs 

(BSI 3 TV DISP) 



LIBF 


DISK1 


DC 


ARG1 


DC 


ARG2 


DC 


ARG3 


DC 


ARG4 



*This subroutine may be entered by user-written Assembler Language programs via the LIBF TV or by 
monitor system programs via a direct branch. If a direct branch is used, DISK1 uses the parameters contained 
in the ACC and EXT to construct the parameters of a LIBF and simulates a LIBF entry by calling on itself. 



Preoperative input parameters (for 


LIBF entry) t : 








Function 


ARG1 


ARG2 


ARG3 


ARG4 


I/O Area Address 


Test 


/OOOO 


Not used 


Return to this 
word if busy 


Return to this 
word if not busy 


Not used 

J 


Read 


/1000 


Address of the 


Address of user 


Return to this 


Word 1 = word 






I/O Area 


error routine 


word after 

initiating 

operation 


count 
Word 2 = drive code: 
and sector 
address 


Write 


/2000 


Address of the 


Address of user 


Return to this 


Word 1 = word 


W/O 




I/O Area 


error routine 


word after 


count 


RBC 








initiating 
operation 


Word 2 = drive 
code and 
sector 
address 


Write 


/3000 


Address of the 


Address of user 


Return to this 


Word 1 = word count 


With 




I/O Area 


error routine 


word after 


Word 2 = drive 


RBC 








initiating 
operation 


code and sector 
address 


Write 


/4000 


Address of the 


Address of user 


Return to this 


Word 1 = not used 


Immediate 




I/O Area 


error routine 


word after ini- 
tiating operation 


Word 2 = drive 
code and sector 
address 


Seek 


/500x 


Address of the 


Address of user 


Return to this 


Word 1 = not used 




x = seek option 


I/O Area 


error routine 


word after ini- 


Word 2 = drive 




displacement 






ting operation 


code and sector 
address 



t Applies to simulated LIBF. 
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Postoperative conditions and entry points: 










Function at 


D0945 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


/OOOO 


D0000 (branch) 
D0007 (LIBF) 


D0030 


D0004 


D0004 


2 


Read 


/0001 


D0000 (branch) 
D0007 (LIBF) 


D0030 


D0004 


D0004 


2 


Write W/O RBC 


/0002 


D0000 (branch) 
D0007 (LIBF) 


D0030 


D0004 


D0004 


2 


Write W/RBC 


/0003 


D0000 (branch) 
D0007 (LIBF) 


D0030 


D0004 


D0004 


2 


Write Immediate 


/0004 


D0000 (branch) 
D0007 (LIBF) 


D0030 


D0004 


D0004 


2 


Seek W/O Seek 
Option 


/0005 


D0000 (branch) 
D0007 (LIBF) 


D0030 


D0004 


D0004 


2 


Seek With Seek 
Option 


/0005 
(D0946=x000) 


D0000 (branch) 
D0007 (LIBF) 


D0030 


D0004 


D0004 


2 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


D0918 


D0919 


D0020+1 


D0020+3 




D0010 


Used 


X 


X 


X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


D0006 


If DISK1 was entered by a monitor system program at D0000, this word is used by 
DISK1 to simulate a LIBF link word. The contents of this word should reference the 
simulated LIBF at symbolic location D0060. 


D0008+1 


Address of the link word in the LIBF TV if called by a user-written LIBF; address 
of D0006 (simulated LIBF TV) if routine was entered from a monitor system program 
via a direct branch. 


D0235+1 
(D0310+1) 


Address of the word containing the beginning of the file- protected area of the disk 
on the specified drive. 


D0280+1 


Address of a table in COMMA containing the list of defective cylinders of the disk 
on the referenced drive. 


DO 30 5+1 
(D0330+1) 


Address of the device code to be used corresponding to the referenced drive. 


D0350+1 
(D0390+1) 


Address of the word in COMMA containing the current position of the heads on the 
referenced disk. 


D0901 


Sector address of previously executed Forced Read. 


D0904 and 
D0905 


First and second words of the last IOCC performed (excluding Sense Device). 


D0906 and 
D0907 


First and second words of the IOCC for the user-requested operation: D0906 = address 
of the next I/O area; D0907 = area code/function to be performed and current or 
next sector address. 


D0909 


Second word of Re ad- after- Seek IOCC. 


D0910 


Second word of Seek IOCC. 


D0911 


Second word of Sense IOCC. 


D0912 


Word count remaining to be read or written from originally requested word count. 


D0913 


Next sequential sector to be read or written. 


D0938 


Current sector address. 


D0947 


If seek option was envoked, this word contains the displacement from the originally 
requested sector address. 


D0908 


Second word of Read-back- check IOCC. 


DBUSY 


Non-zero indicates routine is busy; this word must be cleared to zero before entry 
to this routine is permitted. 


D0902 and 
D0903 


Last 2 words of sector just read or written. 
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DISKN 



Used by: Monitor system programs, Assembler Language programs 

Subroutines required: ILS02 

Linkage:* for monitor system programs 



LDD 
BSI 



LIST 
L D0000 



LIST 



DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



for Assembler Language programs 



LIBF 

DC 

DC 

DC 

DC 



DISKN 

ARG1 

ARG2 

ARG3 

ARG4 



(BSI 3 TV DISP) 



*This subroutine may be entered by user-written Assembler Language programs via the LIBF TV or by moni- 
tor system programs via a direct branch. If a direct branch is used, DISKN uses the parameters contained in 
the ACC and EXT to construct the parameters of a LIBF and simulates a LIBF entry by calling on itself. 



Preoperative input paramaters (for 


LIBF entry) *f : 








Function 


ARG1 


ARG2 


ARG3 


ARG4 


I/O Area Address 


Test 


/OOOO 


Not used 


Return to this 
word if busy 


Return to this 
word if not busy 


Not used 


Read 


/1000 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiating operation 


Word 1 = word 

count 
Word 2 = cilrive 

code and sector 

address 


Write W/O 
RBC 


/2000 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiating operation 


Word 1 = word 

count 
Word 2 = drive 

code and sector 

address 


Write With 
RBC 


/3000 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiating operation 


Word 1 = word 

count 
Word 2 = drive 

code and sector 

address 


Write 
Immediate 


/1000 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiating operation 


Word 1 = not used 
Word 2 = drive 

code and sector 

address 


Seek 


/500x 

x = seek option 

displacement 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiating operation 




Word 1 = not used 
Word 2 = drive 

code and sector 

address 



fApplies to simulated LIBF. 

180 



Postoperative conditions and entry points: 



Function 


at D0995 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


/OOOO 


D0000 (branch) 
D0025 (LIBF) 


D0000 (branch) 
D0900+5 (LIBF) 


D0004 


D0004 


2 


Read 


/0001 


D0000 (branch) 
D0025 (LIBF) 


D0000 (branch) 
D0900+5 (LIBF) 


D0004 


D0004 


2 


Write W/O 
RBC 


/0002 


D0000 (branch) 
D0025 (LIBF) 


D0000 (branch) 
D0900+5 (LIBF) 


D0004 


D0004 


2 


Write With 
RBC 


/0003 


D0000 (branch) 
D0025 (LIBF) 


D0000 (branch) 
D0900+5 (LIBF) 


D0004 


D0004 


2 


Write 
Immediate 


/0004 


D0000 (branch) 
D0025 (LIBF) 


D0000 (branch) 
D0900+5 (LIBF) 


D0004 


D0004 


2 


Seek W/O 
Seek Option 


/0005 


D0000 (branch) 
D0025 (LIBF) 


D0000 (branch) 
D0900+5 (LIBF) 


D0004 


D0004 


2 


Seek With 
Seek Option 


/0005 


D0000 (branch) 
D0025 (LIBF) 


D0000 (branch) 
D0900+5 (LIBF) 


D0004 


D0004 


2 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


D0918 


D0918+1 


D0900+1 


D0900+3 




D0080 


Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 



Contents /Use 



D0020 



D0025+2 

D0010 and 
D0010+1 



If DISKN was entered by a monitor system program at D0000, this word is used by 
DISKN to simulate a LIBF link word. The contents of this word should reference 
the simulated LIBF at D0010-1. 

Contents of the LIBF link word if called by a user- written LIBF. 

Simulated LIBF parameters for direct branch input: 
D0010 = /1100 for read input 
= /2200 for write input 
D0010+1 = address I/O area 



DISKN is capable of executing 5 drives simultaneously. Reference to the proper disk drive work areas 
is accomplished by use of a table. XR1 is used to point to the relative starting position for each specific 
drive in the table. The starting address in the table is computed as follows: 
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Significant variables : (C ontinued) 



Symbolic location 


Contents /Use 




The contents of location DO 800 + (drive code x 2) 




Example: Assume drive 1 is referenced. The address would be: 
D0800 +(1 x 2) = D0800+2 


XRl contains this computed address. References to specific significant variables used in the routine 
is XI + some displacement value. The table (DT) contains many significant variables concerning the 
referenced drive. 


VWXYZ and 
VWXYZ+1 


First and second words of Seek IOCC if one is required; also used as temporary 
storage. 


STOX1+1 


Drive determination: the drive currently being referenced may be determined by 
the contents of XRl corresponding to the relative starting address in the drive table, 
or by examining the contents of STOX1+1. This location contains the drive code. 


Index Register 2 


Drive code and I/O area address at various times during execution of this routine. 


D0800 
(XRl + 1) 


Current position (sector address) of the heads on the referenced drive. 


SVIOIand 
SVIOI+1 
(XRl + 10) 
(XRl + 11) 


Last two words of the I/O area just read into 


RSTRT 
(XRl + 20) 


Address of the user's error routine. 


SFLAG 
(XRl + 21) 


Current seeking status of the drive: 

/FFFF = drive is seeking, has just seeked, or seek is required. 
/0000 = seek not required, or not in process. 


D0995 
(XRl + 30) 


Originally requested user function. 


SCNTR 
(XRl + 31) 


Error counter for referenced drive for this operation: 

50 - C(DT + 31) = total errors occurred for this drive during requested function 
(DT + 30) 


IOCC and 
IOCC+1 
(XRl + 40) 
(XRl + 41) 


IOCC for the current user- requested operation, except for Seek and Sense DSW. 


ORIGS 
(XRl + 50) 


Originally requested sector address. 


SADR 
(XRl + 51) 


Current sector address for current IOCC. 
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Significant variables: (Continued) 




Symbolic location 


Contents /Use 


WCNT 
(XR1 ■+ 60) 


Remaining word count to be read or written. 




COUNT 
(XR1 +61) 


Word count to be used in next I/O operation. 




IOADR 
XR2 + 70) 


Current I/O area address. 




RBCNT 
(XR1 + 71) 


Read-back- check counter: 

100 = C(DT + 71) = total errors occurred attempting to perform RBC. 




$DBSY 


Current status of each of the 5 possible drives; i. e. , if drives and 2 are 
busy, bits and 2 of $DBSY are set to 1. 


both 
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System 

Loader 

Flowcharts: 

SYL01 -05 



Cold Start 
Loader 

Flowchart: 
CST01 



FLOWCHARTS 



Cold Start 
Program 

Flowchart: 
CST02 



LINK 
I 



DUMP 



W \1 



Skeleton 

Supervisor 

Flowchart: 

SUPO'l 



EXIT 



Core Image 

Loader 
Flowcharts: 
CIL01 - 02 



EXIT 
entry 



LINK 

entry, 

DSF 

program 



DUMP 

entry, 

negative 

parameter 



Monitor Control 

Record Analyzer 

Flowcharts: 

SUP02-08 



DUP 
record 



FOR 
record 



ASM 
record 



XEQ 
record 



Disk Utility 

Program (DUP) 

Flowcharts: 

DUP01 -13 



FORTRAN 

Compiler 

Flowcharts: 

FOR01 - 30 



DCI 

program 



DSF 
program 



Assembler 

Program 

Flowcharts: 

ASM01 -24 
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» SET FUNCTION 
•(FCOOE) RCV IS 
• -, ENO IS 0, 
» XMIT IS + 



•SAVE PARAMETERS* 



•SET INDICATORS 



»***K2***< 

EXIT 
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• SET INDICATOR, • 
DISABLE AUTO 

• ANSWER • 



•READ CHARACTER • XMIT •• FUNCTION • • END 
INTO BUF ...». CODE .*.... 

• • . •. (FCODE) • • 



END .• FUNCTION • . RCV 
....•• CODE .•-... 

». (FCODE) .» 



XMIT .• FUNCTION • • 

•. CODE 

•. (FCODE) •• 



.» CORRECT • . VES • « 

». ACK OF OLE .O....X* J4 • 

• • ACK • • • • 



ENORD .*. X 

Fl ». ......F2«. •••«••••« 

.»" EOT OF "•. YES • RESET SCA, • 
». OLE EOT •• X CLOSE SCAT2 



• ERROR 0400, 
.X» RETRY, CLOSE, 

• ACCEPT 



• ERROR 0200, 
•RETRY OR CLOSE 



CLEAR RTBSY • 



START SYNC 



ALTERNATE 

ACKNOW- 
LEDGMENTS 
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I/U AKtA, 

INCRE. INC. 



.X START SYNC 



• INIT. ACKS, 
.X* USER COUNT IS 

• 0, RT8SY OFF 



*»**C2*****»*« 
» EXIT 



.» •• YES • HRITE ENQ, 
>. XMIT-ENG ON .» X START READ 



TRANS. 
END CHAR 
. NEEDED 



CLOSE SCAT2 



• UPDATE » 

• POINTERS, • 

• COUNTS, • 

• INDICATORS • 



». XHIT-NAK ON •• X WRITE NAK 



COMPARE BCC 

RCVEO TO BCC 

ACCUMULATED 



Gl »• ••••»G2********** 

• ». ^ALTERNATE ACKS,* 

COMPARE •. YES • USER COUNT ■ • 

EQUAL .* X* LENGTH. RTBSY • 



in, k 

OFF 



• START READ 



ntR, 1NSE 
OLE SYN 



• ERROR 0800 • 
•RETRY, CLOSE OR* 
» ACCEPT • 



ERROR 2000 



..X* C2 • 



X*. SUB-FUNCTION .* X START READ 



1® 



• WRITE EOT, 



..X* C2 • 
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•SAVE REGISTERS,* 

• XR2 IS BASE. • 

• ADDRESS IS T • 



• TEST FOR BUSY « 
.X»ANO SET UP EXIT" 



•• YES 

FUNCTIONS ...... 

2-3 •• 



FUNCTIONS 



»*D3*>»«>< 

RESET SCA 



• SET FUNCTION • 
•(FCODE) TO - IF* 
•RCV, 5 IF MNTR,« 

• + IF XMIT • 



•SAVE PARAMETERS* 



•SET RCV, XMIT, 
■ OR MNTR 
• INDICATORS 



•E3»»«»«»« 

CLEAR 
SDICATORS 



lllfflKlttltlttK 

»SET INDICATORS 



Flowchart: SCA04. System Library, SCAT3 Call Processing 



290 



cz •. 

• * * 
XHIT •• FUNCTION 
CODE 



EXIT 



RCV . 


* FUNCTION 




CODE 




•. (FCODE) 






X 


*• •* 


**•• 


• XMI 


003* 




Al* 




• » 




• 




XMTRD .». 




El •. 




• * • 




• CORRECT 




ACK OF DLE 




• . ACK 



• 004* 

• Al» 



FUNCTION 

CODE 

. J FCODE) 



START SYNC 



•«***F2******** 
,X« CLEAR RTBSY 



»#G2*****»»»* 

ALTERNATE 

ACKNOW- 
LEDGMENTS 



F3 •• 

NAK 



• ••••F4*****»<* 

YES • ERROR 0400, 
• X«RETRY, MONITOR, 

• OR ACCEPT 

I.X* 84 

• ••••G4»»»««* 

YES • EOT TO USER 
• X» AREA 

* 

I.X» B4 

•»»»*H4»o******* 

YES » ENO TO USER 
» X» AREA 



• ERROR 0200, 

• RETRY OR 
» MONITOR 
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• . EOT 



•*•••• A2 •«•••»•« 
•X START SYNC 



•••••B2******** 1 

• IN1T, ACKS. 
.X* USER COUNT IS 

* 0, RT8SY OFF 



A3 •. ••••••A4»»»»«»»«»»* 

••** "*• y ES • WRITE EOT, •- 
•• XHIT-EOT ON -•-..... ..X STMT READ 



». XHIT-ENQ ON 



x* m\m& * 



RETURN TO 

MONITOR 
OPERATION 



STORE DATA IN 

I/O AREA, 

INCRE. INO. 



•***C2 ******** 
EXIT 



C3 *. 

.*" XMIT "*. NO 
*. MESSAGE .*... 



««***0|********** 



.*- RCVTM 
El •• •••••E2********* 

.* *. • ERROR 2000 

» END *. NO • XHIT-ENQ ON 
CHAR. RCVEO .*.... • RETRY OR 

». .. . . MONITOR 



•WRITE DATA FROM* 
AREA 

* • 


0* *. 
.*" TRANS. "*. MO 


» WRITE BCC, • 


*. NEEDED .* 

• • •* 
• • •* 
• YES 


• • 


i 


• »*•• 

I.X* C2 » 

• • 
• ••■ 



i»*E3********* 

UPDATE 

POINTERS, 

COUNTS, 

INDICATORS 



COMPARE BCC • 

RCVED TO BCC • 

ACCUMULATED ■ 



'oV 



•«****G5 •*«*•»•••»« 

• START PROG. • 
.X TIMER, INSERT 
• OLE SYN • 



••••HI********* 

ERROR 0800 

RETRY, MONITOR, 

OR ACCEPT 



ERROR 0200 

RETRY OR 

MONITOR 



..X* C2 • 



*. XHIT-NAK ON 



WRITE NAK 
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»»**A3***»****« 



A4 ». 

*'. XMIT-NAK 

*»*YES 



CI *. 
EOT 



•CONTROL MODE ON* 



• END OP, START • 



ad' 



NO .• POLL OR •. 
...*. SELECT 

*. RCVED .* 



•SET IND. START 



D. ST 
RITE 



END OP, START • 



READ 



WRITE NAK, • • WRITE EOT, 

START READ START READ 



.X« Fl • 

» • 
• ••* 



• •••Fl**" 

• EXIT 
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• CLEAR I/U « 
•BUFFER IF fcRITE« 
< OPERATION « 



RESET READ 

INDICATOR AND 

BUFFER FULL 

INDICATOR 



'SAVE ADDRESS OF« 
• LIliF CALLS FOR « 
» SUBSEQUENT « 
» ENTRIES « 



.• SFIO •. 

EVER « 
INITIALIZED 



['RECISIEiM 



EXIT TO SEXIT 
IN SKELETON 
SUPERVISOR 



SAVE FORMAT 

STMT LOC AND 

GET DEVICE 

NUMBER 



» VALID « 

FOR READ OR 
». WRITE .• 



SET UP BUFFER 

SIZE AND ZERO 

COUNT 



.X»SET FOOl SWITCH* 



•****F3*****»**> 

• SET EXIT 

» ADDRESS TO 
•CONTINUE AFTER 

• I/O 



SET COUNT OF 
CHARACTERS TO 
READ OR WRITE 



FOOl 

ERROR SW 

SET 



► CLEAR I/O 
•BUFFER IF READ 
» OPERATION 



.* ERROR •. NO 
«. F003,5,6,7 .«... 



»*.*G5«***««»»« 
•EXIT TO CALLER 



» UPDATE BUFFER • • • 

• POINTER • X»SET FAC TO ZERO* 

X 

♦ 003* 

• F3* 
•••••K4*********o* « • 

•GOTO I/O DEVICE* 
SUBROUTINE 
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ENTRY 

SUBSCRIPTED 

VARIABLE 



NON 

SUBSCRIPTION 

VARIABLE 



» INCREMENT • 
» BUFFER PT BY « 
•COUNT SPECIFIED" 



» SET UP « 

* DISPLACEMENT « 

• FROM BASE « 
» ADDRESS, SET « 
•ARRAY SIZE TO 1« 



» SET UP « 
•DISPLACEMENT UF« 

• ZERO, ARRAY < 

• SIZE IS 1 « 



•SET UP ADDRESS 

• OF FIRST ELT, 
» SET UP ARRAY 

• SIZE 



ARRAY SIZt, 
EXIT ADDRESS 



SET UP 

NON-DIGIT 

COUNT, 1=2, 



REDO 

INDICATOR 

SET 



•CLEAR WORK AREA* 



....E 003 AA 

I...F 003 AA 

"....I 003 A3 

I...A 003 Bl 

I...X 002 AA 

'....» 003 Al 

I...T 002 A5 

I...SLSH..002 GA 

"...G.R...002 CA 

I...F.R...002 DA 

'...REDO. .002 HA 



ALL 

REPEATS 

DONE 



GET WORD FROM 

FORMAT 

STATEMENT 



STORE TOTAL 

FIELD WIOTH 

(WW) 



.•FORMAT «. •••• 

• TYPE «. NO • 
E,F,I ,A, OR .»....X» D3 



•RETURN TO M.L. 



•X»RETURN TO M.L. 
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>E[ DATA PT AS 

.NEXT FORMAT 

LOCATION 



» SET UP CHARS 
•PER WORD FROM t 
» TYPE 
• SPECIFICATION 



• MOVE DATA FROM 
•STORAGt TO I/O 

• BUFFER 



•MOVE DATA FROM 
• I/O BUFFER TO 
» STORAGE 



INPUT AND 

CONVERT WW 

CHARS FROM 

BUFFER 



DATA 
EXCEED 
SPECS. 



PACK BUFFER 

FIELD WITH 

ASTERISKS 



ERROR 
F003,5i6, 
. OR 7 



..X" K3 
SCOMP 

•WRITE COMPLETE 



.» LAST «. 
." FORMAT ". NO 
.SPECIFICATION."... 
•• SLASH .• 



"RETURN TO M.L. 



"DECREMENT LIST • 
"ADDRESS BY DATA" 
" TYPE. LOWER • 
• ARRAY COUNT 1 « 
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SET PREVIOUS 
OPERATION 

INDICATOR TO 

CURRENT 

OPERATION 



•WAIT AT LOC /8E 
•WITH A DISPLAY 
» OF /lOOO 



» INITIALIZE 
* READ/WRITE 
» IOCC, CLEAR 
►LAST INDICATOR 



PREVIOUS •- YES 

OPERATION 

. READ .• 



CONVERT EBC 
CARDS TO 
HOLERITH 



SENSE DEVICE 



OPERATION 
COMPLETE 
•INTERRUPT. 



PREVIOUS •• YES 
OPERATION ...... 

. WRITE .• 



i. READY 



FEED CARD 



•WAIT AT LOC 12A» 
•WITH DISPLAY OF«X. 
• /1000 • 



• //BLANK • 

TEST SWITCH 
►. SET .• 



. FIRST t 

THREE CHAR 
». //BLANK .« 



CALL tEXII 



•CZ230 X 

.X SENSE DEVICE 



FEED LAST CARD 
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• ••»A1 • 

» COLUMN • 
•INTERRUPT lLSOO« 



• //BLANK « 

TEST SWITCH 
•• SET .« 



SET TO READ 

FIRST THREE 

CARD COLUMNS 

INTO SPECIAL 

BUFFER 



• SENSE DSH TO « 
RESET INTERRUPT 
• ANO SAVE • 



• •ftftCS******** 11 

SET OPERATION 

COMPLETE 

INTERRUPT 

SWITCH 



•RETURN TO ILSO*» 



»#»«F1 #••»«#••• 
•RETURN TO ILSOO* 
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» A3 »... 

AZ2<tO > 



SET SPACE 

CUUNT=1 FOR 

SINGLE SPACE 



START PRINTER 



START CARRIAGE 



StNSE DEVICE 



DOUBLE 

SPACE 

REQUEST 



.» IDLE 
SCANS 
♦.COMPLETE 



• SENSE DEVICE 
WITH RESET AND 
» SAVE DSW • 



READ EMITTER 



•WAIT AT LOC /2A< 
•WITH OISPLAY OF« 
» /6000 « 



•EXIT TO CALLER » 



•SCAN BUFFER FOR« 

• EMITTED CHAR, « 

• SET BITS IN « 
» PRINT SCAN • 
» BUFFER « 



CHARACTER 

COUNT 

. .GT.l . 



» DECR 

SPACE CTR, 
». CTR^O 



• * 

•RETURN TO ILS01« 



EJECT 

PAGE 
REQUEST 



SENSE DEVICE 



SPACE PRINTER 



OR CHANNEL 12 

BIT INTO 

CHANNEL 12 

SWITCH 



.* SUPPRESS 
SPACE 
*. REQUEST 



.* CHANNEL 



CHANNEL *. YES 
12 SWITCH ...... 

SET .» 



t»**j3*«**ft«**« 
STOP CARRIAGE 



STOP PRINTER 



•EXIT TO CALLER 



• SET INTERRUPT • 

• SWITCH TO • 
•CHANNEL 1 FOUND* 



AZ195 

x 

...X»RETURN TO ILS01»X. 



» SET INTERRUPT 
•SWITCH TO IDLE 
•SCANS COMPLETE 
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.X START READER 



SET UP FOR 
UPPER CASE 
CONVERSION 



INTERRUPT •. NO 
SWITCH .*... 
SET .« 



SET UP FOR 
LOWER CASE 
CONVERSION 



•SET CHAR COUNT 
•TO MAXIMUM FOR 
» READ 



•»...C3.«»«.« 
» CONVERT 

• CHARACTER 

• ACCORDING TO 
•CASE, STORE " 

• BUFFER 



IN 



•*C* • 

RETURN TO 
CALLER 



•INCREMENT CHAR 
•COUNT BY 1 FOR 
• Nl. CHAR 



• INCREMENT 

• BUFFER AOR. 
•DECREMENT CHAR 

• COUNT 



• SET Nt. NO EXIT 

• OUTPUT CASE 
» SHIFT 



READ CHARACTER 



.X SENSE DEVICE X... 



• YES 

!.X« KZ 



• CASE 

CHANGE 
•.REQUIRED 



•WAIT AT LOC /2A« 
•WITH DISPLAY OF« 
• /300O • 



SET TO OUTPUT 

PROPER CASE 

CHAR 



CLEAR CASE 
SWITCH LOAD 
CHARACTER 



• CALL tEXIT 



PUNCH CHARACTER 
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StNSE DEVICE 



•WAIT AT LOC /2A« 

.X«WITH DISPLAY OF« 

» MOOO « 



» set up mcc, 

• PLACE WORD 
"COUNT IN FRONT 
» 01- I/O BUFFER 



SET ILS04 

INTERRUP EXIT 

TO RETURN TO 

RZ100 





READ 


CARD 








< 












Fl *. 












INTERRUPT 


•• NO . 




SWITCH 




* 


S 


-T 


» 



• WAIT AT LOC /8E« 
•WITH DISPLAY OF* 

• /4000 • 



RZ070 

•RETURN TO ILS04* 



//BLANK 

CONTROL 

•READ CARD. 



CALL $EXIT 



CONVERT 

HOLLERITH 

BUFFER TO EBC 
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»..»A1*««» 

•ENTRY VIA LIBF 
» WRTVZ 



• CONVERT E8C • 
t CHAR TO « 

•TYPEWRITER CODE" 



CHECK 

TYPEWRITER 

READY 



SENSE DEVICE 



•STORE CHARACTER* 
» COUNT- LOAD « 
•CARRIER RETURN « 
» CHAR • 



INTERRUPT 

SWITCH 

SET 



• RETURN TO ItSCK" 



CHECK 

TYPEWRITER 

READY 
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•WAIT AT LOC /2A« 
•WITH DISPLAY OF« 
• /ZCCO « 



SPACE PRINTER 



•CONVERT BUFFER 



CHANNEL 

1 SWITCH 

SET 



EJECT 

PAGE 

REQUEST 



••CHANNEL*. 
• 12 • 
ENCOUNTERED 



SUPPRESS 
SPACE 
. REQUEST 



PRINT LINE 



ENCOUNTERED 



TRANSFER 
COMPLETE 
. SWITCH 
• . CLEAR. « 



... SKIP TO CHNL 1 



• DOUBLE 
SPACE 
». REQUEST 



• RETURN TO ILSO<V« 



.WZ210 

!yes .« 



SPACE PRINTER 
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PZ100 

«»...B2 
•HOLEZ 



PUNCH A COLUMN 



INCREMENT TO 

NEXT BUFFER 

LOCATION 



SET ROUTINE 

BUSY IND CLEAR 

LAST CARD 

SKITCH 



•RETURN TO ILSOO« 



... 02. ...... 

SENSE DSW 



FEtCl LAST CARD X. 



•RETURN TU ILS04* 



ROUTINE 

BUSY INO 

SET 
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. X SELECT KEYBOARD 



INITIALIZE 
COUNT BUFFER 
SETUP RESTART 



►CONVERT ONE EBC* 
» TO TYPEWRITER » 
» CODE » 



TYPE ONE 
CHARACTER OR 
» CONTROL 



•SENSE INTERRUPT* 
WITH RESET SAVE 
• DSW • 



SET BUFFER 

ADD, WD CNT. 

ENTER CAR. 

RETURN 



•RETURN TO ILS04« 



KZ500 

•••••E 
•KZ600 



Ol2E4« 
TEST 1/ DEVICE • 



TEST READY 



NO .» ALL 
...«. CHARACTERS 
••PROCESSED. 



§»F4****«***«* 
SENSE DSW 



CONVERTS 
CHARACTERS IN 
BUFFER TO EBC 



> END OF 

LINE 
•.CHARACTER. 



RETURN 
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CONVERT AND 

RESTORE INTO 

BUFFER 



• INCFEMENT • 
» BUFFER • 
•DECREMENT COUNT" 



NC .• ALL 
...». CHARACTERS 
•.CONVERTED. 
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APPENDIX A. EXAMPLES OF FORTRAN OBJECT CODING 



This appendix shows, by example, the Assembler 
Language equivalent for the object coding generated 

Source Coding Object Coding 

Arithmetic Statements - real, integer, and mixed modes 
I=J LD L J 

STO L I 



by the FORTRAN Compiler. A typical cross-section 
of FORTRAN statements is shown. 

Object Coding 
With Trace* 



LIBF SIAR 

DC I 



A=B 



A=I 



I=A 



LIBF 


FLD 


DC 


B 


LIBF 


FSTO 


DC 


A 


LD 


L I 


LIBF 


FLOAT 


LIBF 


FSTO 


DC 


A 


LIBF 


FLD 


DC 


A 


LIBF 


IFIX 


STO 


1-1 



LIBF SFAR 



LIBF SFAR 



LIBF 
DC 



SIAR 
I 



I=K-M 



LD 


L 


K 


S 


L 


M 


STO 


L 


I 



LIBF SIAR 

DC I 



A=I-B 



LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FSUB 


DC 




B 


LIBF 




FSTO 


DC 




A 



LIBF SFAR 



* The period in this column indicates that the generated coding is the same as in the Object Coding column. Trace refers to Arithmetic 
or Transfer Trace, whichever is applicable. 
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Source Coding 



A=B-I 



A=B+I-J 

or 
(A=I+B-J) 



I=J*K 



Obj 


;ct Coding 


LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FSBR 


DC 




B 


LIBF 




FSTO 


DC 




A 


LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FADD 


DC 




B 


LIBF 




FSTO 


DC 




GT1 


LD 


L 


J 


LIBF 




FLOAT 


LIBF 




FSBR 


DC 




GT1 


LIBF 




FSTO 


DC 




A 


LD 


L 


J 


M 


L 


K 


SLT 




16 


STO 


L 


I 



Object Coding 
With Trace 



LIBF 



SFAR 



LIBF 



SFAR 



LIBF 
DC 



SIAR 



A=B*C 



A=B*I 



LIBF 




FLD 


DC 




B 


LIBF 




FMPY 


DC 




C 


LIBF 




FSTO 


DC 




A 


LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FMPY 


DC 




B 


LIBF 




FSTO 


DC 




A 



LIBF 



SFAR 



LIBF 



SFAR 
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Source Coding 



I=J/ K 





Object Coding 


LD 


fi 


SRT 


16 


D 


L K 


STO 


L I 



Object Coding 
With Trace 



LIBF 
DC 



SIAR 
I 



A=B/ C 



I=J / (K+M) 



LIBF 




FLD 


DC 




B 


LIBF 




FDIV 


DC 




C 


LIBF 




FSTO 


DC 




A 


LD 


L 


K 


A 


L 


M 


STO 


3 


+126 


LD 


L 


J 


SRT 




16 


D 


3 


+126 


STO 


L 


I 



LIBF 



SFAR 



LIBF 
DC 



SIAR 
I 



I=A /J 



LD 


L 


J 


LIBF 




FLOAT 


LIBF 




FDVR 


DC 




A 


LIBF 




IFIX 


STO 


L 


I 



LIBF 
DC 



SIAR 



I=J**K 



LD 


L 


J 


LIBF 




FIXI 


DC 




K 


STO 


L 


I 



LIBF 
DC 



SIAR 
I 
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Source Coding 



A==B**I 



A=B**C 



A=I**B 



A=B**(I+J) 



A=B**(C+D) 



Obje 


ct Coding 


LIBF 


FLD 


DC 


B 


LIBF 


FAXI 


DC 


I 


LIBF 


FSTO 


DC 


A 


LIBF 


FLD 


DC 


B 


CALL 


FAXB 


DC 


C 


LIBF 


FSTO 


DC 


A 


LD 


L I 


LIBF 


FLOAT 


CALL 


FAXB 


DC 


B 


LIBF 


FSTO 


DC 


A 


LD 


1-1 


A 


L J 


STO 


L GTl 


LIBF 


FLD 


DC 


B 


LIBF 


FAXI 


DC 


GTl 


LIBF 


FSTO 


DC 


A 


LIBF 


FLD 


DC 


C 


LIBF 


FADD 


DC 


D 


LIBF 


FSTO 


DC 


GTl 


LIBF 


FLD 


DC 


B 



Object Coding 
With Trace 



LIBF 



LIBF 



LIBF 



SFAR 



SFAR 



SFAR 



LIBF 



SFAR 
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Source Coding 



A=B+C-(2**D*E-F)/G 





Object Coding 




CALL 


FAXB 




DC 


GT1 




LIBF 


FSTO 




DC 


A 




LIBF 


FLD 




DC 


B 




LIBF 


FADD 




DC 


C 




LIBF 


FSTO 




DC 


GT1 




LD 


L ADR1 




LIBF 


FLOAT 




CALL 


FAXB 




DC 


D 




LIBF 


FMPY 




DC 


E 




LIBF 


FSUB 




DC 


F 




LIBF 


FDIV 




DC 


G 




LIBF 


FSBR 




DC 


GT1 




LIBF 


FSTO 




DC 


A 


ADR1 


DC 


2 



Object Coding 
With Trace 



LIBF 



SFAR 



LIBF 



SFAR 



Arithmetic Statements - Subscripted Expressions 



A(I)=B(IJ)+C(I ) J) 



LIBF 


SUBSC 


DC 


SGT1 


DC 


value D „ for array A 
4 


DC 


I 


DC 


value D for array A 


LIBF 


SUBSC 


DC 


SGT2 


DC 


value D for arrays B 


DC 


I 
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Source Coding 



Object Coding 



Object Coding 
With Trace 



M=L(I,J,K) 



DC 

DC 

DC 

LIBF 

DC 

LIBF 

DC 

LDX 

LIBF 

DC 

LIBF 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

LD 

STO 



value D for arrays B and C 



value D for arrays B and C (see Note 1) 

FLDX 

B 

FADDX 

C 

SGT1 

FSTOX 

A 



SUBSC 
SGT1 



value D for array L 
4 



value D for array L 



value D for array L 



value D for array L (see Note 1) 



LI L 

L M 



LIBF SFARX 



LIBF 
DC 



SIAR 
M 



M(I)=M(I+1)+M(J) 



LIBF 


SUBSC 


DC 


SGT1 


DC 


value D for array M 


DC 


I 


DC 


value D for array M 


LIBF 


SUBSC 


DC 


SGT2 


DC 


value D for array M 


DC 


I 


DC 


value D for array M 


LIBF 


SUBSC 


DC 


SGT3 


DC 


value D , for array M 
4 


DC 


J 


DC 


value D for array M 
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Source Coding 



Object Coding 


LDX 


11 


SGT2 


LD 


LI 


M 


LDX 


11 


SGT3 


A 


LI 


M 


LDX 


11 


SGT1 


STO 


LI 


M 



Object Coding 
With Trace 



LIBF 
DC 



SIARX 
M 



M(1)=M(2)+M(3) 



LDX LI value D for literal subscript 2 

LD LI M 

LDX LI value D for literal subscript 3 

A LI M 

LDX LI value D for literal subscript 1 

STO LI M 



LIBF 
DC 



SIARX 

M 



M(1)=N(1)+M(1) 



LDX 


LI 


va 


LD 


LI 


N 


A 


LI 


M 


STO 


LI 


M 



value D for literal subscript 1 



LIBF 
DC 



SIARX 
M 



Statement Function Statements 



A=JOE(B+C,D)+E 



LIBF 


FLD 


DC 


B 


LIBF 


FADD 


DC 


C 


LIBF 


FSTO 


DC 


GT1 


CALL 


JOE 


DC 


GT1 


DC 


D 


LIBF 


FLOAT 


LIBF 


FADD 


DC 


E 


LIBF 


FSTO 


DC 


A 



LIBF 



SFAR 
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Source Coding 
A=C(B, .5)+E 



Object 


Coding 


CALL 


C 


DC 


B 


DC 


ADR1 


LIBF 


FADD 


DC 


E 


LIBF 


FSTO 


DC 


A 



Object Coding 
With Trace 



LIBF 



SFAR 



ADR1 



DC 



Call Statements 



CALL XY 



CALL 



XY 



CALL YZ (A(2), A(I),B,C*D) 





LIBF 




SUBSC 




DC 




SGT1 




DC 




value D for array A 




DC 




I 




DC 




value D for array A (see Note 




LIBF 




FLD 




DC 




C 




LIBF 




FMPY 




DC 




D 




LIBF 




FSTO 




DC 




GT1 




LDX 


LI 


value D for literal subscript 2 




MDX 


LI 


A 




NOP 








STX 


LI 


ADR1 




LDX 


11 


SGT1 




MDX 


LI 


A 




NOP 








STX 


LI 


ADR2 




CALL 




YZ 


ADR1 


DC 







ADR2 


DC 









DC 




B 




DC 




GT1 
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Source Coding 



CALL YZ(A(I),B,C*D) 



ADR1 



Obj 


ect Coding 


LIBF 




SUBSC 


DC 




SGT1 


DC 




value D for array A 


DC 




I 


DC 




value D for array A 


LIBF 




FLD 


DC 




C 


LIBF 




FMPY 


DC 




D 


LIBF 




FSTO 


DC 




GT1 


LDX 


11 


SGT1 


MDX 


LI 


A 


NOP 






STX 


LI 


ADR1 


CALL 




YZ 


DC 







DC 




B 


DC 




GT1 



Object Coding 
With Trace 



DO and CONTINUE Statements 



DO 10I=J,K 



10 CONTINUE 



DO 10 I=J, K,M 



10 CONTINUE 



ADR1 



ADR1 



LD L J 

STO L I 

(next sequential instruction) 



MDX 


L 


1,1 


MDX 




* 


LD 


L 


I 


S 


L 


K 


BSC 


L 


ADR1,+ 


LD 


L 


J 


STO 


L 


I 



(next sequential instruction) 
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Source Coding 





Object Coding 


LD 




L 


I 


A 




L 


M 


STO 




L 


I 


S 




L 


K 


BSC 




L 


ADR1.+ 



Object Coding 
With Trace 



GO TO Statement 



GO TO 111 



BSC L ADR1 



ADR1 (coding generated from statement 111) 



Computed GO TO Statement 



GO TO (111,112,113),! 



LOCI 



LDX 


11 


I 


BSC 


11 


LOC1+1 


DC 




ADR1 


DC 




ADR2 


DC 




ADR3 



LIBF 



SGOTO 



IF Statements 



IF (I) 111,112,113 



ADR1 (coding generated from statement 111) 



ADR2 (coding generated from statement 112) 



ADR3 (coding generated from statement 113) 



LD 
BSC 
BSC 
BSC 



L I 

L ADR1.+Z 

L ADR2 , +- 

L ADR3.-Z 



ADR1 (coding generated from statement 111) 



ADR2 (coding generated from statement 112) 



ADR3 (coding generated from statement 113) 



LIBF SIIF 

BSC L ADR1,+Z 

BSC L ADR2 , +- 

BSC L ADR3,-Z 
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Source Coding 

IF (A) 111,100,113 
100 CONTINUE 



Object Coding 


LIBF 




FLD 


DC 




A 


LD 


3 


+126 


BSC 


L 


ADR1.+Z 


BSC 


L 


ADR2,-Z 



Object Coding 
With Trace 



LIBF 



SFIF 



STOP Statement 



ADR1 (coding generated from statement 111) 



ADR2 (coding generated from statement 113) 



IF(A+I) 100,111,100 
100 CONTINUE 



LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FADD 


DC 




A 


LD 


3 


+126 


BSC 


L 


ADR1.+- 



LIBF 



SFIF 



ADR1 (coding generated from statement 111) 



IF (I) 111,111,112 



LD L I 

BSC L ADR1,+ 

BSC L ADR2,-Z 



LIBF SIIF 

BSC L ADR1.+ 

BSC L ADR2.-Z 



PAUSE Statement 



ADR1 (coding generated from statement 111) 



ADR2 (coding generated from statement 112) 



PAUSE 11 



LIBF 
DC 



PAUSE 
ADR1 



ADR1 DC 



11 



STOP 21 



LIBF 
DC 



STOP 
ADR1 



ADR1 DC 



21 
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Source Coding 



Object Coding 



RETURN Statements 

for (REAL) FUNCTION subprogram 

where the subprogram name is COMP 



LIBF FLD 

DC COMP 

BSC I address of subprogram linkword in transfer vector 



for (INTEGER) FUNCTION subprogram ID L ICOMP 

where the subprogram name is ICOMP BSC I address of subprogram linkword in transfer vector 



for SUBROUTINE subprogram 



BSC I address of subprogram linkword in transfer vector 



END Statement 



The END statement produces no object coding. 



I/O Initialization Calls 



The following coding for the initialization of the FORTRAN I/O subroutines at execution time is generated and inserted into the program 
by the compiler. 



LIBF 


UFIO (see Note 2) 




DC 


/OOOX 




LIBF 


SDFIO (see Note 3) 




DC 


/OOOX 




LIBF 


SFIO (see Note 4) 




DC 


/OOYX 




DC 


/0016 




LIBF 


TYPEZ or LIBF WRTYZ 


(see Note 5) 


DC 







LIBF 


CARDZ (see Note 6) 




DC 







LIBF 


PRNTZ 




DC 







LIBF 


PAPTZ 




DC 







LIBF 


PRNZ 




DC 







LIBF 


TYPEZ (see Note 5) 




DC 







LIBF 


WCHRI 




DC 







LIBF 


READZ 




DC 







LIBF 


PNCHZ (see Note 6) 




DC 
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Source Coding 



Object Coding 



Non-Disk I/O Statements 



READ (N,101)A,I 



READ (N.101) X 

where X is dimensioned 



READ (N,101)(X(I), 1=1,5) 





LIBF 




SRED 




DC 




N 




DC 




101 




LIBF 




SIOF 




DC 




A 




LIBF 




SIOI 




DC 




I 




LIBF 




SCOMP 




LIBF 




SRED 




DC 




N 




DC 




101 




LIBF 




SIOAF 




DC 




X 




DC 




number of elements in array X 




LIBF 




SCOMP 




LIBF 




SRED 




DC 




N 




DC 




101 




LD 


L 


ADR1 




STO 


L 


I 


ADR3 


LIBF 




SUBSC 




DC 




SGT1 




DC 




value D for array X 




DC 




I 




DC 




value D for array X (see Note 




LIBF 




SIOFX 




DC 




X 




MDX 


L 


1,1 




LD 


L 


I 




S 


L 


ADR2 




BSC 


L 


ADR3,+ 




LIBF 




SCOMP 


ADR1 


DC 




1 


ADR2 


DC 




5 
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Source Coding 



WRITE (N,101)A,I 



Object Coding 


LIBF 


SWRT 


DC 


N 


DC 


101 


LIBF 


SIOF 


DC 


A 


LIBF 


SIOI 


DC 


I 


LIBF 


SCOMP 



Unformatted I/O Statements 



READ (N) A, I 



READ (N) 



WRITE (N) A, I 



LIBF 


URED 


DC 


N 


LIBF 


UIOF 


DC 


A 


LIBF 


UIOI 


DC 


I 


LIBF 


UCOMP 


LIBF 


URED 


DC 


N 


LIBF 


UCOMP 


LIBF 


UWRT 


DC 


N 


LIBF 


UIOF 


DC 


A 


LIBF 


UIOI 


DC 


I 


LIBF 


UCOMP 



Disk I/O Statements 



READ (I 'K) A, I 



LIBF 


SDRED 


DC 


I 


DC. 


K 


LIBF 


SDF 


DC 


A 


LIBF 


SDI 


DC 


I 


LIBF 


SDCOM 



320 



Source Coding 

WRITE (2 1BASE+IDISP (K)) A,B,X 
where A, B, and X are dimensioned 



FIND(J.K) 



Object 


Coding 


LIBF 




SUBSC 


DC 




SGT1 


DC 




value D for array IDISP 


DC 




K 


DC 




value D for array IDISP (see N 


LD 


L 


IBASE 


A 


LI 


IDISP 


STO 




GT1 


LIBF 




SDWRT 


DC 




2 


DC 




GT1 


LIBF 




SDAF 


DC 




A 


DC 




number of elements in array A 


LIBF 




SDAF 


DC 




B 


DC 




number of elements in array B 


LIBF 




SDAF 


DC 




X 


DC 




number of elements in array X 


LIBF 




SDCOM 


LIBF 




SDFND 


DC 




J 


DC 




K 



Manipulative I/O Statements 



BACKSPACE I 



REWIND 10 



LIBF 


BCKSP 


DC 


I 


LIBF 


REWND 


DC 


ADR1 



ADR1 



DC 



10 



END FILE 10 



LIBF 
DC 



EOF 
ADR1 



ADR1 



DC 



10 
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NOTES: 

1 . Tagged to indicate the end of the subscript argument list . 

2. The LIBF UFIO and its parameter are inserted only if unformatted I/O statements are encountered in the program. X is the integer size 
and precision indicator. 

3. The LIBF SDFIO and its parameter are inserted only if the Disk indicator (bit 8) in the IOCS word is on. X is the integer size and 
precision indicator. 

4. The LIBF SFIO, its parameters, and the LIBF table are inserted only if indicators other than the Disk indicator in the IOCS word are on. 
Y is the trace device indicator. X is the integer size and precision indicator. The DC /0016 provides the number of words from the 
LIBF SFIO to the first word following the LIBF table, inclusive. 

A LIBF to a FORTRAN I/O device subroutine is present in the LIBF table for each device indicated by a bit in the IOCS word. If a device 
is not indicated by a bit in the IOCS word, the LIBF is replaced by a DC 0. 

5. If "KEYBOARD" is specified, the LIBF TYPEZ is inserted; if "TYPEWRITER" is specified, the LIBF WRTYZ is inserted. 

6. If "CARD" is specified, the LIBF PNCHZ is not inserted; if "1442 PUNCH" is specified, the LIBF CARDZ is not inserted. 
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APPENDIX B. LISTINGS 



This appendix contains 1) assembly listings of the 
Resident Monitor, including DISKZ , and the Cold 
Start Program, 2) listings describing the contents of 
DCOM and the Resident Image, 3) the equivalences 
used throughout the monitor system programs, and 



4) a cross-reference listing of all the symbols used 
in the above items. 

Note that in the listings the character @ 
is printed as ' , and the character # is printed 
as = . 



D*COM 








AODR RFL U6JECT ST. NO. 


LABEL 01 




0001 


. 


RLTV / 




000? 


• 






00C3 


» 


0-3 




0004 


* 


4-5 




0005 


* 


6 




0006 


♦ 


7 




0007 


» 






0008 


ft 


8 




0009 


• 


9 




0010 


« 






0011 


• 


10 




0012 


* 






0013 


* 


11 




0014 


• 


12 




0015 


* 






0016 


* 


13 




0017 


• 


14 




0018 


ft 


15 




0019 


ft 


16 




0020 


ft 


17 




0021 


* 


18 




0022 


* 


19 




0023 


• 


20 




0024 


• 


21 




0025 


* 


22 




0026 


* 


23 




0027 


* 


24 




0028 


* 


25 




0029 


» 


26 




0030 


• 


27 




0031 


• 


28-34 




0032 


* 


35 




0033 


* 






0034 


# 


36 




0035 


• 






0036 


• 


37 




0037 


* 






0038 


ft 


38 




0039 


> 






0040 


* 


39 




0041 


• 






0042 


ft 


40 




0043 


• 






0044 


ft 


41 




0045 


» 






0046 


ft 


42 




0047 


* 






0048 


• 


43 




0049 


• 






0050 


• 


44 




0051 


ft 






0052 


* 


45 




0053 


* 






0054 


• 


46 




0055 


* 






0056 


> 


47 




0057 


• 






0058 


* 


48 




0059 


• 






0060 


> 


49 




0061 


* 






0062 


* 


50 




0063 


* 


51 




0064 


« 


52 




0065 


ft 


53 




0066 


* 


54 




0067 


• 


55 




0068 


» 


56 




0069 


ft 


57 




0070 


« 


58 




0071 


* 


59 




0072 


* 


60 




0073 


* 


61 




0074 


• 


62 




0075 


« 


63 




0076 


ft 


64 




0077 


• 


65 




0078 


< 


66 




0079 


* 


67 




0080 


ft 


68 




0081 


• 


69 




00 82 


ft 


70 




0083 


« 


71 




0084 


* 


72 



RLTV AD0R» SYMBOL* DESCRIPTION 



= NAME 
= DBCT 
= FCNT 

= SYSC 
= JBSW 



= LCNT 
= MPSW 

= MDF1 
= MDF2 
= NCNT 
= ENTY 
= RP67 
= T0DR 
= FR0R 
= FH0L 
= FSZE 
=UH0L 
= USZE 
= DCSW 
= PI0D 
= PPTR 
= CIAD 

= ANDU 



RESERVED FOR EVEN BOUNDARIES 
NAME OF PROGRAM/CORE LOAD 
BLOCK COUNT OF PROG/CLIRE LOAD 
•FILES SWITCH— ZERO MEANS NO 
FILES HAVE BEEN EQUATED 
SYS/NON-SYS CARTRIDGE INDR 
JOBT SWITCH — NON-ZERO MEANS 
TEMPORARY MODE 
CLB-RETURN-TO-UUP SWITCH — 
ZER0=CLB RETURN TO SUPV 
NO. OF LOCALS 

CORE MAP SWITCH — ZERO MEANS 
DO NOT PRINT A CORE MAP 
NO. DUP CTRL RECDS (MUDIF) 
ADDR OF MODIF BUFFER 
NO. OF NOCALS 

RLTV ENTRY ADDR OF PRUGRAM 
1442-5 SW (0=1442-5 ON SYSTEM 
■TO' WORKING STG DRIVE CODE 
•FROM* WORKING STG DRIVE CODE 
ADDR OF LARGEST HOLE IN FXA 
BLK CNT OF LARGEST HOLE IN FXA 
ADDR OF LARGEST HOLE IN UA 
BLK CNT OF LARGEST HOLE IN UA 
DUP CALL SW — NON-ZER0=DUP CALL 
PRINCIPAL I/O DEVICE INDICATOR 
PRINC. PRINT DEVICE INDICATOR 
RLTV ADUR IN 'STRT OF CIL ADDR 
RESERVED FOR FUTURE USE 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 1 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 2 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 3 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 4 
1+BLOCK ADDR OF END OF USER 
AREA (HASE) LOGICAL DRIVE 
1+BLOCK ACDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 1 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 2 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 3 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 4 
FILE PROTECT ADDR, LOGICAL 
DRIVE (BASE) 
FILE PROTECT ADORt LOGICAL 
DRIVE 1 (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 2 (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 3 (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 4 (BASE) 

CARTRIDGE 10, PHYSICAL DRIVE 
CARTRIDGE ID, PHYSICAL DRIVE 1 
CARTRIDGE ID, PHYSICAL DRIVE 2 
CARTRIDGE ID, PHYSICAL DRIVE 3 
CARTRICGE ID, PHYSICAL DRIVE 4 
CARTRIDGE ID, LOGICAL ORIVE 
CARTRIDGE ID, LOGICAL DRIVE 1 
CARTRIDGE ID, LOGICAL DRIVE 2 
CARTRIDGE ID, LOGICAL DRIVE 3 
CARTRIDGE ID, LOGICAL ORIVE 4 
SCTR ADDR OF CIB, LOGICAL DR 
SCTR ADDR OF CIB, LOGICAL DR 1 
SCTR ADDR OF CIB, LOGICAL DR 2 
SCTR ADDR OF CIB, LOGICAL DR 3 
SCTR ADDR OF CIB, LOGICAL DR 4 
SCRA, LOGICAL DRIVE 
SCRA, LOGICAL DRIVE 1 
SCRA, LOGICAL DRIVE 2 
SCRA, LOGICAL DRIVE 3 
SCRA, LOGICAL DRIVE 4 
FORMAT OF PROG IN WS, DRIVE 
FORMAT OF PROG IN WS, ORIVE 1 
FORMAT OF PROG IN WS, DRIVE 2 



ID/SEQNO 

SYS00010 
SYS00020 
SYS00030 
SYS00040 
SYS00050 
SYSCC060 
SYS00070 
SYS00080 
SYS00090 
SYS00100 
SYS00110 
SYSC0120 
SYS00130 
SYS00140 
SYS00150 
SYS00160 
SYS00170 
SYS00180 
SYS00190 
SYS00200 
SYS0C210 
SYS00220 
SYS00230 
SYS00240 
SYSC0250 
SYS00260 
SYS00270 
SYS00280 
SYS00290 
SYS00300 
SYSCC310 
SYS00320 
SYSC0330 
SYS00340 
SYSC0350 
SYS00360 
SYS00370 
SYSC0380 
SYS00390 
SYS00400 
SYSC0410 
SYSC0420 
SYS00430 
SYS00440 
SYS00450 
SYS00460 
SYS00470 
SYSCC480 
SYS00490 
SYS00500 
SYS0C510 
SYS00520 
SYS00530 
SYS00540 
SYS00550 
SYS0C560 
SYS00570 
SYS00580 
SYS00590 
SYS0C600 
SYS00610 
SYS00620 
SYSOC630 
SYS00640 
SYS00650 
SYS00660 
SYS00670 
SYS00680 
SYSC0690 
SYSOC700 
SYS00710 
SYS00720 
SYSCC730 
SYS0C740 
SYS00750 
SYS00760 
SYS00770 
SYS00780 
SYS00790 
SYS00800 
SYS00810 
SYS00820 
SYSC0830 
SYS00840 
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DCOM 
AODR REL OBJECT 



ST.NG. 

0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 



LABEL OPCD FT OPERANDS 



73 


• 




74 


• 




75 


• 


= FLET 


76 


• 




77 


* 




78 


• 




79 


• 




80 


- 


=ULET 


81 


• 




82 


* 




83 


• 




84 


• 




85 


» 


= WSCT 


86 


• 




87 


* 




88 


# 




89 


* 




90 


• 


=CSHN 


91 


* 




92 


• 




93 


* 




94 


• 




95-319 


* 





FORMAT OF PROG IN WS, DRIVE 3 
FORMAT OF PROG IN WS, DRIVE 4 
FLET SCTR ADDR, LOGICAL DR 
FLET SCTR ADDR, LOGICAL DR 1 
FLET SCTR ADDR, LOGICAL DR 2 
FLET SCTR ADDR, LOGICAL DR 3 
FLET SCTR ADDR, LOGICAL DR 4 
LET SCTR ADDR, LOGICAL DR 
LET SCTR ADDR, LOGICAL DR 1 
LET SCTR ADDR, LOGICAL DR 
LET SCTR ADDR, LOGICAL 
LET SCTR ADDR, LOGICAL 
BLK CNT OF PROG IN WS, 
8LK CNT OF PROG IN WS, 
BLK CNT OF PROG IN WS, 
BLK CNT OF PROG IN WS, 
BLK CNT OF PROG IN WS, 
SCTR CNT CUSHION, LOGICAL DR 
SCTR CNT CUSHION, LOGICAL DR 
SCTR CNT CUSHION, LOGICAL DR 
SCTR CNT CUSHION, LOGICAL DR 
SCTR CNT CUSHION, LOGICAL DR 
RESERVED FOR FUTURE USE 



2 
3 
4 

DR I VE 
DRIVE 
OR I VE 
DRIVE 
DRIVE 



DR 
DR 



ID/SEQNO 

SYS00850 
SYSC0860 
SYS00870 
SYS00880 
SYS0C890 
SYS00900 
SYS00910 
SYS00920 
SYS00930 
SYS00940 
SYS00950 
SYS00960 
SYS00970 
SYS00980 
SYSC0990 
SYS01000 
SYS01010 
SYS01020 
SYS01030 
SYS01040 
SYS01050 
SYS01060 
SYS01070 



RESIDENT IMAGE 






ADDR REL OBJECT 


ST.NC. 


LABEL OPCI 




0109 


• 




0110 


• RLTV ADI 




0111 


• 




0112 


• 0-209 




0113 


* 




0114 


* 210-319 



RLTV ADDR* SYMBOL* DESCRIPTION 



ID/SfcQNO 

SYS01090 
SYS01100 
SYS01110 

INITIAL VALUES FOR WORDS 4-213 SYS01120 
OF THE RESIDENT MONITOR SYS01130 
RESERVED FOR FUTURE USE SYS01140 



RESIDENT MONITOR 

AODR REL OBJECT ST. NO. 

0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 



LABEL OPCD FT OPERANDS 

»•»»•»*»»•••»•»»»»«»•*»»*»»•»»»**»*»«•»»»•«»»*»»«»»# 

•STATUS-VERSION 2, MODIFICATION » 

• « 
•FUNCTION/OPERATION- « 

• THIS SECTION ALWAYS REMAINS IN CORE. IT » 
» IS COMPRISED OF THE COMMUNICATIONS * 

• AREA (COMMA), THE SKELETON SUPERVISOR, AND * 

• A DISK 1/0 SUBROUTINE, NOMINALLY DISKZ. (THE * 

• FIRST TWO OF THESE SECTIONS ARE INTERMIXED.) » 

• COMMA CONTAINS THE SYSTEM PARAMETERS REOUIR- » 
» ED TO FETCH A CORE LOAD IN CORE IMAGE FOR- * 
» MAT. THE SKELETON SUPERVISOR PROVIDES IN- • 

• STRUCTIONS FOR INITIATING A CALL EXIT, A • 

• CALL LINK, A DUMP-TO-PRINTER OR A CALL TO THE » 

• AUXILIARY SUPERVISOR. IN ADDITION, THE SKELE-* 
« TON SUPERVISOR CONTAINS SEVERAL TRAPS FOR CER-« 

• TAIN I/O FUNCTIONS/CONDITIONS. THE DISK I/O • 

• SECTION CONSISTS OF A SUBROUTINE FOR READING • 

• FROM OR WRITING ON A DISK CARTRIDGE ON A * 

• GIVEN LOGICAL DISK DRIVE. * 

• • 
•ENTRY POINTS- • 

• • SPRET-A TRAP FOR PREOPERATIVE I/O ERRORS. * 

• THE CALLING SEQUENCE IS * 

• BSI L $PRET • 

• • SPSTX-A POSTOPERATIVE ERROR TRAP FOR I/O • 

• DEVICES ON LEVEL X <X=1,2,3,0R 4). » 

• THE CALLING SEQUENCE IS • 

• BSI L *PSTX • 

• • SSTOP-THE PROGRAM STOP KEY TRAP. • 

• • SEXIT-THE ENTRY POINT FOR THE EXIT/CALL • 

• EXIT STATEMENT. THE CALLING SEQUENCE IS« 

• LDX SEXIT * 

• • $LINK-THE ENTRY POINT FOR THE LINK/CALL • 

• LINK STATEMENT. THE CALLING SEQUENCE IS* 

• BSI L SLINK » 

• • $DUMP-THE ENTRY POINT FOR THE DUMP/PDMP * 

• STATEMENT. THE CALLING SEQUENCE IS * 

• BSI L $DUMP • 



ID/SEQNO 

SYS01160 
SYS01170 
SYS01180 
SYS01190 
SYS01200 
SYS01210 
SYS01220 
SYS01230 
SYS01240 
SYS01250 
SYS01260 
SYS01270 
SYS01280 
SYS01290 
SYS01300 
SYS01310 
SYS01320 
SYS01330 
SYS0I340 
SYS01350 
SYS01360 
SYS01370 
SYS01380 
SYS01390 
SYS01400 
SYS01410 
SYS01420 
SYS01430 
SYS01440 
SYS01450 
SYS01460 
SYS01470 
SYS01480 
SYS01490 
SYS01500 
SYS01510 
SYS01520 
SYS01530 
SYS01540 
SYS01550 
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ADDS REL OBJECT ST-NO. 

0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
C201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 



LABEL OPCD FT OPERANDS 

* DC FORMAT * 

* DC LIMIT1 * 

* DC LIMIT2 * 
» WHERE LIMIT1 AND LIMIT2 ARE THE LIMITS • 

* BETWEEN WHICH THE DUMP IS TO OCCUR, ANO» 
« FORMAT IS A CODE INDICATING THE FORMAT » 
» OF THE DUMP. IF FORMAT IS NEGATIVE, • 

* THE AUXILIARY SUPERVISOR IS FETCHED * 

* AND CONTROL PASSED TO IT. * 
» » DZOOO-ENTERED WHEN THE CALLER WISHES TO » 
« PERFORM A DISK I/O OPERATION. THE * 
» CALLING SEQUENCE VARIES WITH THE • 

* VERSION OF THE DISK I/O SUBROUTINE. • 

* » $I200/$I400-ENTEREO WHEN THE OPERATION- * 

* COMPLETE INTERRUPT OCCURS ON * 
» LEVEL 2/4. » 



•INPUT-N/A 



•OUTPUT-WORDS 
* DUMP 



6-4090 SAVED ON THE CIB ON A CALL 



•EXTERNAL REFERENCES-N/A • 

• • 
•EXITS- * 

• • NORMAL • 

• »THE EXITS FROM THE SUBROUTINES AT $PRET • 

• $PST1, $PST2, $PST3, $PST4, AND $STOP • 

• ARE BRANCH INSTRUCTIONS FOLLOWING A • 

• WAIT INSTRUCTION. iSTOP TURNS OFF IN- • 

• TERRUPT LEVEL 5 AFTER THE START KEY IS • 

• DEPRESSED. • 

• *THE EXITS FROM $EXIT, SLINK, AND $DUMP ARE * 

• TO THE CORE IMAGE LOADER, PHASE 1, • 

• AFTER THAT PHASE HAS BEEN FETCHED. • 

• «THE EXIT FROM DZOOO IS BACK TO THE * 

• CALLER AFTER THE REQUESTED DISK OPERA- • 

• TION HAS BEEN INITIATED. • 

• *THE EXITS FROM $I200/$I400 ARE BACK TO • 

• THE ADDRESSES FROM WHICH THE DISK OP- • 

• ERATION COMPLETE INTERRUPT OCCURED • 

• AFTER THE INTERRUPT HAS BEEN SERVICED • 
« BY THE APPROPRIATE ISS. • 

• • ERROR-N/A • 

• • 
•TABLES/WORK AREAS- • 

• • $ACDE * 

• * $CH12 • 

• • *CILA • 

• • $CLSW • 

• • $COMN * 

• • $CORE • 

• • $CTSW * 

• • $CXR1 • 

• • $CYLN * 

• * $DABL • 

• • tDADR • 

• • $DBSY • 

• • HDCYL • 

• • $DMPF • 

• * $DREQ * 

• • $FPAD • 

• • *HASH * 

• • SIBT2 • 

• • $IBT4 • 

• • $IBSY • 

• * $IOCT • 

• • JKCSW • 

• • $LAST • 

• • $NDUP • 

• » $NXEQ » 

• • $PBSY • 

• * $PGCT • 

• • $PHSE • 

• • $RMSW • 

• • $SNLT • 

• • $UFIO • 

• • $ULET • 

• • $WRD1 • 

• • $WSDR • 

• • 
•ATTRIBUTES-REUSABLE * 

• • 
•NOTES- • 

• THERE ARE WAIT INSTRUCTIONS AT *PRET+1, • 

• $ST0P+1, AND $PSTX+1. DEPRESSING THE START • 

• KEY WILL RETURN CONTROL TO THE CALLER IN ALL • 

• CASES. • 



ID/SEQNO 

SYS01560 
SYS01570 
SYS01580 
SYS01590 
SYS01600 
SYS01610 
SYS01620 
SYS01630 
SY SO 1640 
SYS01650 
SYS01660 
SYS01670 
SYS01680 
SYS01690 
SYS01700 
SYS01710 
SYS01720 
SYS01730 
SYS01740 
SYS01750 
SYS01760 
SYS01770 
SYS01780 
SYS01790 
SYS01800 
SYS01810 
SYS01820 
SYS01830 
SYS01840 
SYS01850 
SYS01860 
SYS01870 
SYS01880 
SYS01890 
SYS01900 
SYS01910 
SYS01920 
SYS01930 
SYS01940 
SYS01950 
SYS01960 
SYS01970 
SYS01980 
SYS01990 
SYS02000 
SYS02010 
SYS02020 
SYS02030 
SYS02040 
SYS02050 
SYS02060 
SYS02070 
SYS02080 
SYS02090 
SYS02100 
SYS02110 
SYS02120 
SYS02130 
SYS02140 
SYS02150 
SYS02160 
SYS02170 
SYS02180 
SYS02190 
SYS02200 
SYS02210 
SYS02220 
SYS02230 
SYS02240 
SYS02250 
SYS02260 
SYS02270 
SYS02280 
SYS02290 
SYS02300 
SYS02310 
SYS02320 
SYS02330 
SYS02340 
SYS02350 
SYS02360 
SYS02370 
SYS02380 
SYS02390 
SYS02400 
SYS02410 
SYS02420 
SYS02430 
SYS02440 
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ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SfcQNO 









0246 


• PROVIDE 1 


PARAMETERS FOR SYSTEM LOADER 


SYS02460 








0247 


• 








SYS02470 








0248 




ABS 






SYS02480 


0280 






0249 




ORG 




4 


SYS02490 


0004 





OFFA 


0250 




DC 




4095-* WD CNT FOR WRITING CORE ON CIB 


SYS02500 


0005 





0000 


0251 


$CIBA 


DC 




»-» SCTR AODR OF THE CIB 


SYSC2510 


0006 





0000 


0252 


$CH12 


DC 




»-« ADDR OF CHANNEL 12 INDICATOR 


SYS02520 


0007 





0000 


0253 
0254 


$CCMN 

• 


DC 




»-« LENGTH OF COMMON (IN WORDS) 


SYS02530 
SYS02540 








0255 


» ULTIMATE 


RESIDENCE OF THE INTERRUPT TV 


SYS02550 








0256 


• 








SYS02560 


0008 





0000 


0257 


$L£V0 


DC 




»-• LEVEL BRANCH ADDRESS 


SYS02570 


0009 





0000 


0258 


$LEV1 


DC 




«-» LEVEL 1 BRANCH ADDRESS 


SYS02580 


OOOA 





00B3 


0259 


$LEV2 


DC 




$1200 LEVEL 2 BRANCH ADDR 


SYS02590 


OOOB 





0000 


0260 


$LEV3 


DC 




*-• LEVEL 3 BRANCH ADDRESS 


SYS02600 


OOOC 





C0C4 


0261 


$LEV4 


DC 




$1400 LEVEL 4 BRANCH ADDR 


SYS02610 


OOOD 





0091 


0262 
0263 
0264 


$LEV5 

• 
• 


DC 




$STOP LEVEL 5 BRANCH AODR 


SYS02620 
SYS02630 
SYS02640 


OOOE 





0000 


0265 


$CORE 


DC 




*-« SIZE OF CORE, E.G., 4096=4K 


SYS02650 


OOOF 





0000 


0266 


$CTSW 


DC 




*-• CONTROL RECORD TRAP SWITCH 


SYS02660 


0010 





0000 


0267 


$DADR 


DC 




«-» SCTR ADDR OF PROG TO BE LOADED 


SYS02670 


0011 





5540 


0268 


SDABL 


DC 




/5540 IOCC FOR SCA RESET <ODD ADDR) 


SYS02680 


0012 





0000 


0269 


$DREQ 


DC 




«-» IND. FOR REQUESTED VERSION DKI/O 


SYS02690 


0013 





0000 


0270 


$IBSY 


DC 




«-» NON-ZERO IF CD/PAP TP DEV. BUSY 


SYSC2700 


0014 




OOOC 


0271 
0272 
0273 


$HASH 

• 
* 


BSS 


E 


12 WORK AREA 


SYS02710 
SYS02720 
SYS02730 


0020 




0008 


0274 
0275 
0276 
0277 


$SCAN 

* 
* 
• 


BSS 




8 1132 SCAN AREA 32 


SYS02740 
SYS02750 
SYS02760 
SYS02770 








0278 


* TRAP FOR 


PREOPERATIVE I/O ERRORS 


SYS02780 








0279 


* 








SYS02790 


0028 





0000 


028C 


$PRET 


DC 




«-» ENTRY POINT 


SYS02800 


0029 





3000 


0281 




WAIT 




WAIT TIL START KEY PUSHED 


SYS02810 


C02A 


00 


4C800028 


0282 
0283 
0284 


• 
• 


BSC 


I 


$PRET RETURN TO CALLER 


SYS0282C 
SYSC283C 
SYS0284C 


002C 





0000 


0285 


$IREU 


DC 




»-» ADDR OF INT REQUEST SUBROUTINE 


SYS0285C 


002D 





0000 


0286 


$ULET 


DC 




*-• ADDR OF LET, LOGICAL OR 


SYS0286C 


002E 





0000 


0287 




DC 




•-• ADDR OF LET, LOGICAL DR 1 


SYS0287C 


002F 





0000 


0288 




DC 




*-* ADDR OF LET, LOGICAL DR 2 


SYS02880 


0030 





0000 


0289 




DC 




•-* ADDR OF LET, LOGICAL DR 3 


SYS02890 


0031 





0000 


0290 




DC 




*-« ADDR OF LET, LOGICAL DR 4 


SYS02900 


0032 





0000 


0291 


$ICCT 


DC 




*-* ZERO IF NO I/O IN PROGRESS 50 


SYS02910 


0033 





0000 


0292 


$LAST 


DC 




*-« NON-ZERO WHEN LAST CARD SENSED 


SYS02920 


0034 





0000 


0293 


$NDUP 


DC 




•-* DO NOT DUP IF NON-ZERO 


SYS02930 


0035 





0000 


0294 


$NXEQ 


DC 




*-* DO NOT EXECUTE IF NON-ZERO 


SYS02940 


0036 





0000 


0295 


$PBSY 


DC 




*-« NON-ZERO WHEN PRINTER BUSY 


SYS02950 


0037 





0000 


0296 
0297 


$PGCT 

* 


DC 




»-• PAGE NO. FOR HEADINGS 


SYS02960 
SYS02970 








0298 


* CALL EXIT ENTRY POINT TO SKELETON SUPERVISOR 


SYS02980 








0299 


• 








SYS02990 


0038 





7014 


0300 
0301 


$EXIT 

* 


MDX 




$S000 BR TO FETCH CIL, PHASE 1 56 


SYS03000 
SYS03010 








0302 


*«« CALL LINK 


ENTRY POINT 


SYSC3020 








0303 


• 








SYS03030 


0039 





0000 


0304 


$LINK 


DC 




*-• ENTRY POINT 57 


SYS03040 


003A 





1810 


0305 




SRA 




16 


SYS03050 


003B 





7012 


0306 




MDX 




SS100 BR TO FETCH CIL, PHASE 1 


SYS03060 


00 3C 




0000 


0307 




BSS 


E 





SYS03070 


00 3C 





0001 


0308 


$S900 


DC 




1 DISK PARAMETERS FOR SAVING CORE 


SYS03080 


0030 





0004 


0309 




DC 




$CIBA-1 *IN CONNECTION WITH DUMP 


SYS03090 


C03E 





FFFF 


0310 
0311 


$S910 

• 


DC 




-1 CALL EXIT INDICATOR 


SYS03100 
SYS03110 








0312 


»•* SAVE 1ST 


4K OF CORE ON THE CIB 


SYS03120 








0313 


• 








SYS03130 


003F 





0000 


0314 


$DUMP 


DC 




*-* ENTRY POINT 63 


SYS03140 


0040 


00 


74C00032 


0315 




MDX 


L 


$IOCT,0 SKIP IF NO INTERRUPT 


SYS03150 


0042 





70F0 


0316 




MDX 




»-3 *PENDING, BR OTHERWISE 


SYS03160 


0043 





08D6 


0317 




STD 




$ACEX SAVE ACCUMULATOR, EXTENSION 


SYS03170 


0044 





69D2 


0318 




STX 


1 


$CXR1 SAVE XR1 


SYS03180 


0045 


00 


C480003F 


0319 




LD 


I 


$DUMP 


SYS03190 


0047 





O0D1 


0320 




STO 




$DMPF SAVE DUMP FORMAT CODE 


SYS03200 


0048 





C8F3 


0321 




LDD 




$S90C 


SYS03210 


0049 


00 


440000F2 


0322 




BSI 


L 


DZOOO SAVE WDS 6-4095 ON CIB 


SYS03220 


004B 





COFO 


0323 




LD 




$S900 


SYS03230 


004C 





7001 


0324 
0326 


• 


MDX 




$S100 BR TO FETCH CIL, PHASE 1 


SYS03240 
SYS03260 








0327 


*»» FETCH i 


CORE IMAGE LOADERt PHASE 1 


SYS03270 








0328 


• 








SYS03280 


0040 





COFO 


0329 


$S000 


LD 




$S910 


SYS03290 


004E 





D0C7 


0330 


$S100 


STO 




$RMSW SAVE EXIT-LINK-DUMP SWITCH 


SYS03300 
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ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



004F 
0051 
0052 
0053 
0055 
0056 
0057 
0058 

0059 
005B 
005C 
005D 
005F 
0061 
0062 

0063 
0068 



0071 
0072 

0072 

0073 

0074 

0075 

0076 C 

0077 

0078 

0079 
007A 
007B 
007C 
007D C 
007E 
007F 

0080 



00 74000032 
70FD 
08BD 
00 65800039 
C101 
18D0 
C100 
D8BB 



00 65000000 
C COFE 
1890 
00 440000F2 
00 740000EE 
70FD 
4102 



0005 
0009 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0081 0000 

0082 3000 

0083 00 4C800081 



0085 0000 

0086 3000 

0087 00 <»C800085 



0089 0000 
008A 3000 
008B 00 4C800089 



008D 0000 
008E 3000 
008F 00 4C 800080 



0091 0000 

0092 3000 

0093 00 4CC00091 



0095 

0096 

0097 

0098 

0099 



OOCO 
0000 
0000 
0000 
0000 



0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 



MDX 
MDX 
XIO 
LDX 
LD 
RTE 
LO 
STD 
* $S150+1 
$S150 LDX 
LO 
SRT 
BSI 
NOX 
MDX 
BSI 



L $IOCT,0 
»-3 

$DABL-1 
II $LINK 
1 1 

16 
1 

$LKNM 
CONTAINS ADDR 
LI •-• 
$CILA 
16 
L DZOOO 
L $DBSYtO 
«-3 
1 2 



BSS 

BSS 
• 
$FLSH OC 

BSS 
$CWCT DC 

DC 
$CCAD DC 
$LSAD DC 
$DZ1N DC 
$DCDE DC 
$PHSE DC 
$UFIO DC 
$WSDR DC 
$WRD1 DC 
$KCSW DC 
$UFDR DC 
$CPTR DC 
$1132 DC 
$1403 DC 

* TRAP FOR 
• 

$PST1 DC 

WAIT 
BSC 

» TRAP FOR 

$PST2 OC 

WAIT 
BSC 

• 

» TRAP FOR 

• 

$PST3 DC 

WAIT 
BSC 

• 

* TRAP FOR 
• 

$PST4 DC 

WAIT 
BSC 





•— » 



SKIP IF NO INTERRUPT LEFT 

BR IF INTERRUPT(S) PENDING 

TURN OFF THE SCA 

LINK ADDR TO XR1 

FETCH 2N0 WD OF LINK NAME 

FETCH 1ST WD OF LINK NAME 
SAVE TEMPORARILY 
LAST WD OF DISK I/O MINUS 3 
ADDR END OF DKI/0-1 TO XR1 



FETCH CI LOADER, PHASE 1 
SKIP IF READ OP DONE 
BR UNTIL READ FINISHED 
BR TO CI LOADER, PHASE 1 

RESERVED FOR THE 2250 
PATCH AREA 



FLUSH-TO-NEXT-JOB SWITCH 1=FLUSH 



WORD COUNT AND SECTOR ADDRESS 
*-# »FOR SAVING/RESTORING COMMON 
»-» ADDR FOR SAVING/RESTORING COMMON 
*-» SCTR ADDR OF 1ST LOCAL/SOCAL 
•-» DISKZ/1/N INDICATOR (-1,0, +1) 
*-« LOGICAL ORIVE CODE FOR PROGRAM 
»-» NO. OF PHASE NOW IN CORE 
•-« UNFORMATTED I/O RECORD NO. 
•-* WORKING STORAGE DRIVE CODE 
•-• LOADING ADDR OF THE CORE LOAD 
•-• 1 IF KB.CP BOTH UTILIZED 
»-• UNFORMATTED I/O DRIVE CODE 
•-• CHANNEL 12 INDICATOR FOR CP 
»-» CHANNEL 12 INDICATOR FOR 1132 
»-* CHANNEL 12 INDICATOR FOR 1403 
POSTOPERATIVE I/O ERRORS ON LEVEL 1 

*-* ENTRY POINT 
I $PST1 RETURN TO DEVICE SUBROUTINE 
POSTOPERATIVE I/O ERRORS ON LEVEL 2 

•-* ENTRY POINT 
I $PST2 RETURN TO DEVICE SUBROUTINE 
POSTOPERATIVE I/O ERRORS ON LEVEL 3 

»-• ENTRY POINT 
I $PST3 RETURN TO DEVICE SUBROUTINE 
POSTOPERATIVE I/O ERRORS ON LEVEL 4 

»-* ENTRY POINT 
I $PST4 RETURN TO DEVICE SUBROUTINE 



» PROGRAM STOP KEY TRAP 

$STOP DC *-* 
WAIT 
BOSC X $STOP 



ENTRY POINT 

WAIT TIL START KEY PUSHED 

RETURN TO CALLER 



« PARAMETERS USED BY THE DISK I/O SUBROUTINES. THE 
• LOGICAL DRIVE CODE IS FOUND IN BITS 1-3 FOR ALL 
« BUT THE AREA CODE. BIT WILL ALWAYS BE ZERO. 



•»« DISK1 AND DISKN WILL NOT WRITE BELOW THE 

»»* FOLLOWING SCTR ADDRESSES (EXCEPT WRITE IMMED). 



$FPAD DC 
DC 
DC 
DC 
DC 



*-» FILE PROTECT ADDR, LOGICAL DR 
*-• FILE PROTECT ADDR, LOGICAL OR 1 

•— * 
•— » 



FILE PROTECT ADDR, LOGICAL DR 2 
FILE PROTECT ADDR, LOGICAL DR 3 
•-« FILE PROTECT ADDR, LOGICAL DR 4 



»** THE ARM POSITION IS UPDATED WHENEVER A SEEK 
«*» OCCURS. 



SYS03310 
SYS03320 
SYS03330 
SYS03340 
SYS03350 
SYS03360 
SYS03370 
SYS03380 
SYS03390 
SYS03400 
SYS03410 
SYS03420 
SYS03430 
SYS03440 
SYS03450 
SYS03460 
SYS03470 
SYS03480 
SYS03490 
SYS03500 
SYS03510 
SYS03520 
SYS03530 
SYS03540 
SYS03550 
SYS03560 
SYS03570 
SYS03580 
SYS03590 
SYS03600 
SYS03610 
SYS03620 
SYS03630 
SYS03640 
SYS03650 
SYS03660 
SYS03670 
SYS03690 
SYS03700 
SYS03710 
SYS03720 
SYS03730 
SYS03740 
SYS03750 
SYS03760 
SYS03770 
SYS03780 
SYS03790 
SYS03800 
SYS03810 
SYS03820 
SYS03830 
SYS03840 
SYS03850 
SYS03860 
SYS03870 
SYS03880 
SYS03890 
SYS03900 
SYS03910 
SYS03920 
SYS03930 
SYS03940 
SYS03950 
SYS03960 
SYS03970 
SYS03980 
SYS04000 
SYS04010 
SYS04020 
SYS04030 
SYS04040 
SYS04050 
SYS04060 
SYS04070 
SYS04080 
SYS04090 
SYS04100 
SYS04110 
SYS04120 
SYS04130 
SYS04140 
SYS04150 
SYS04160 
SYS04170 
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AODR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



IO/SEQNO 



009A 





0000 


009B 





ooco 


009C 





0000 


009D 





0000 


009E 





0000 



009F 





0000 


OOAO 





0000 


00A1 





0000 


00A2 





0000 


00A3 





0000 



00A4 





0000 


00A5 





ooco 


00A6 


c 


0000 


00A7 





0000 


00A8 





0000 


00A9 





0000 


OOAA 


c 


0000 


OOAB 





0000 


OOAC 





0000 


OOAD 





0000 


OOAE 





0000 


OOAF 





0000 


OOBO 





0000 


0081 





0000 


00B2 





0000 



00B3 
00B4 
00B5 
00B6 
00B7 



0000 
6906 
6A07 
2807 
D80A 



00B8 
OOBA 
OOBC 
OOBE 
OOBF 
OOCO 
00C2 
00C2 
00C3 



00 44000000 
00 65000000 
00 66000000 
2000 
C802 
00 4CC000B3 

0000 
OOCO 
0000 



00C4 





0000 


00C5 





D818 


00C6 





280E 


00C7 





690F 


00C8 





6A10 


00C9 





0816 


OOCA 





1002 



OOCB 00 4C1000DO 
OOCO 00 4480002C 



0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 



$CYLN DC ARM POSITION FOR LOGICAL DRIVE 

DC ARM POSITION FOR LOGICAL DRIVE 

DC ARM POSITION FOR LOGICAL DRIVE 

DC ARM POSITION FOR LOGICAL DRIVE 

DC ARM POSITION FOR LOGICAL DRIVE 

• 

•** BELOW ARE THE DISK AREA CODES. A ZERO 

*»• INDICATES THE CORRESPONDING DRIVE IS NOT 

»»• ON THE SYSTEM 



$ACDE DC •-• AREA CODE FOR LOGICAL DRIVE 

DC *-* AREA CODE FOR LOGICAL DRIVE 

DC «-• AREA CODE FOR LOGICAL DRIVE 

DC •-» AREA CODE FOR LOGICAL DRIVE 

DC • -» AREA CODE FOR LOGICAL DRIVE 



»*» THE ADR OF THE CYLINDER IN WHICH A DEFECT OC- 
*•• CURS, IF ANY, IS STORED IN THE 1ST, 2ND, OR 3RD 
• »» WORD BELOW, DEPENDING ON WHETHER IT IS THE 1ST, 
••« 2ND, OR 3RD DEFECT ON THE CARTRIDGE. 



$DCYL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



»— » 
»— • 
»— • 
•— • 
•— » 
•— • 
»— • 
»-» 



»-» 
»-• 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 1 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 2 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 3 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 4 



ILS02 — THIS SUBROUTINE SAVES XR1, XR2, STATUS, 
AND THE ACCUMULATOR AND ITS EXTENSION. 
THE ADDRESS OF THE INTERRUPT SERVICE ROU- 
TINE IS STORED IN $1205 BY PHASE 2 OF 
THE CORE IMAGE LOADER. WORD 10 ALWAYS 
CONTAINS THE ADDRESS OF $1200. 



[200 DC 
STX 
STX 
STS 
STD 



$1210+1 
$1210+3 
$1210+4 
$1290 



$1 



$1205+1 CONTAINS ADDR 
205 BSI L •-* 
210 LDX LI 
LDX L2 



LOS 
LDD 
BOSC 
290 BSS 
DC 
DC 



•— • 

•— • 



$1290 

$1200 



•— • 



ENTRY PT (LEVEL 2 INTRUPT) 

SAVE XR1 

SAVE XR2 

STORE STATUS 

SAVE ACCUMULATOR, EXTENSION 

INTERRUPT ENTRY PT TO DKI/O 

BR TO SERVICE THE INTERRUPT 

RESTORE XR1 

RESTORE XR2 

RESTORE STATUS 

RESTORE ACCUMULATOR, EXT 

RETURN FROM INTERRUPT 

CONTENTS OF ACCUMULATOR AND 
•EXTENTION 



ILS04 — THIS SUBROUTINE SAVES XR1, XR2, STATUS, 
AND THE ACCUMULATOR AND ITS EXTENSION. 
IF THE INTERRUPT IS FOR A KEYBOARD REQ- 
UEST, AND IF A MONITOR PROGRAM IS IN CON- 
TROL, CONTROL IS PASSED TO DUMP. OTHER- 
WISE, CONTROL IS PASSED TO THE KEYBOARD/ 
CONSOLE PRINTER SUBROUTINE. WORD 12 AL- 
WAYS CONTAINS THE ADDRESS OF $1400. 

THE TABLE BELCW CONTAINS THE ADDRESSES OF THE 
INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES 
ON LEVEL 4. 



$1400 DC •-• ENTRY POINT 

STD $1490 SAVE ACCUMULATOR, EXTENSION 

STS $1410 SAVE STATUS 

STX I $1410+2 SAVE XR1 

STX 2 $1410*4 SAVE XR2 

XIO $1492 SENSE DSW 

SLA 2 IS THIS INTERRUPT REQUEST 

BSC L $1403,- BR IF NOT INTERRUPT REQUEST 

BSI I $IREQ BR IF INTERRUPT REQUEST 



SYS04180 
SYS04190 
SYS04200 
SYS04210 
SYS04220 
SYS04230 
SYS04240 
SYS04250 
SYS04260 
SYS04270 
SYSC4280 
SYS04290 
SYS04300 
SYS04310 
SYS04320 
SYS04330 
SYS04340 
SYS04350 
SYS04360 
SYS04370 
SYS04380 
SYS04390 
SYS04400 
SYS04410 
SYS04420 
SYS04430 
SYS04440 
SYS04450 
SYS04460 
SYSC4470 
SYS04480 
SYS04490 
SYSC4500 
SYS04510 
SYS04520 
SYS04530 
SYS04550 
SYS04560 
SYS04570 
SYS04580 
SYS04590 
SYS04600 
SYS04610 
SYS04620 
SYS04630 
SYS04640 
SYS04650 
SYS04660 
SYS04670 
SYS04680 
SYS04690 
SYS04700 
SYS04710 
SYS04720 
SYS04 730 
SYS04740 
SYS04750 
SYS04760 
SYS04770 
SYS04780 
SYS04790 
SYS04810 
SYS04820 
SYS04830 
SYS04840 
SYS04850 
SYS04860 
SYS04870 
SYS04880 
SYS04890 
SYS04900 
SYS04910 
SYS04920 
SYS04930 
SYS04940 
SYS04950 
SYS04960 
SYS04970 
SYS04980 
SYS04990 
SYS05000 
SYS05010 
SYS05020 
SYS05030 
SYS05040 
SYS05050 
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ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



COCF 


C 


FFFE 


0506 


DC 


-2 ERROR CODE 


SYS05060 


OOOO 





61C9 


0507 


$1403 LOX 


1 9 NO. DEVICES ON LEVEL TO XR1 


SYS05070 


00D1 





0810 


0508 


XIO 


$1494 SENSE ILSW 


SYS05080 


00D2 





1140 


0509 


SLCA 


1 FIND CAUSE OF INTERRUPT 


SYS05090 








0510 


* $1405+1 CONTAINS AODR OF LEVEL 4 IBT MINUS 1 


SYS05100 


00D3 


00 


45800000 


0511 


$1405 BSI 


11 *-» BR TO SERVICE THE INTERRUPT 


SYS05110 


00D5 





2000 


0512 


$1410 LDS 


RESTORE STATUS 


SYS05120 


0006 


00 


65000000 


0513 


LDX 


LI «-* RESTORE XR1 


SYS05130 


0C08 


00 


66C00000 


0514 


LDX 


L2 *-* RESTORE XR2 


SYS05140 


OODA 





C803 


0515 


LDD 


$1490 RESTORE ACCUMULATOR, fXT. 


SYS05150 


OODB 


00 


4CC000C4 


0516 
0517 


BOSC 

* 


I $1400 RETURN 


SYSC5160 
SYS05170 








0518 


* CONSTANTS AND WORK AREAS 


SYS05180 








0519 


* EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES 


SYS05190 








0520 


« 




SYS05200 


OOOD 


c 


OOCO 


0521 


$OOSW DC 


»-« DSW FOR THE DISK 


SYS05210 


OOOE 




0002 


0522 


$1490 BSS 


E 2 CONTENTS OF ACCUMULATOR, EXT. 


SYS05220 


OOEO 





0000 


0523 


$1492 DC 


»— * 


SYS05230 


OOEO 


c 




0524 


$SYSC EQU 


»-l VERSION AND MOD NO. 


SYS05240 


00E1 





OFOO 


0525 


DC 


/OFOO IOCC FOR SENSE IOCC FOR KB/CP 


SYS05250 


00E2 




0001 


0526 


$1494 BSS 


1 PATCH AREA 


SYS05260 


0CE3 


c 


0300 


0527 


DC 


/0300 IOCC FOR SENSING ILSW04 


SYS05270 


00E4 




OOOA 


0529 


BSS 


10 PATCH AREA 


SYS05290 


OCEE 





OOCO 


0530 


$DBSY DC 


*-» NON-ZERO WHEN DISK I/O BUSY 


SYS05300 



DISKZ 

ADOR REL OBJECT ST. NO. 

0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
05 58 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
05 71 
0572 
0573 
0574 
0575 



LABEL OPCD FT OPERANDS 

• • 
•PROGRAM NAME- * 
» »FULL NAME-FORTRAN/SYSTEM DISK I/O SUBROUTINE « 

• 'CALLING SEQUENCE- • 

• LDD PARAM * 

• BSI L DISKZ » 
» WHERE PARAM IS THE LABEL OF A DOUBLE-WORD * 

• CELL CONTAINING THE FUNCTION CODE AND THE • 

• ADDR OF THE I/O BUFFER, I.E., AODR OF WD CNT. » 
» SEE 'CAPABILITIES' FOR DISCUSSION OF PARAM- * 
« ETERS. • 
• 

•PURPOSE- • 

• TO PROVIDE A SUBROUTINE TO PERFORM DISK OPERA-* 

• TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY • 

• MONITOR PROGRAMS AND USER PROGRAMS WRITTEN IN » 

• FORTRAN. THUS, IT IS INTENDED FOR USE IN AN • 

• ERROR-FREE ENVIRONMENT. • 

• • 
•METHOD- * 

• DISKZ REQUIRES A BUFFER, THE LENGTH OF WHICH IS* 

• 2 GREATER THAN THE NO. WORDS TO BE READ/WRIT- * 

• TEN. * 

• • 
•CAPABILITIES AND LIMITATIONS- • 

• THE WD CNT, AS WELL AS DZOOCMUST BE ON AN EVEN* 
» BOUNDARY, MUST BE IN THE RANGE 0-32767. THE • 

• DRIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR • 

• ADDR, WHICH FOLLOWS THE WD CNT. THE FUNCTION » 

• INDICATOR MUST BE XXOO FOR A READ OR XX01 FOR • 

• A WRITE, WHERE «XX» MEANS ANY 2 HEXADECIMAL • 

• CHARACTERS. A WD CNT OF ZERO INDICATES A SEEK.* 

• (READ OR WRITE MAY BE INDICATED.) AUTOMATIC * 

• SEEKING IS PROVIDED AS A PART OF READ/WRITE. * 

• A WRITE IS ALWAYS WITH A READ-BACK-CHECK. * 

• DISKZ MAKES NO PREOPERATIVE PARAMETER CHECKS. * 

• • 
•SPECIAL FEATURES- * 

• DISKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED • 

• ABOVE. DISK1 AND DISKN OFFER THIS BASIC SET OF* 

• FUNCTIONS PLUS OTHERS. * 

• • 



ID/SEONO 

SYS05320 
SYS05330 
SYS05340 
SYS05350 
SYS05360 
SYS05370 
SYS05380 
SYS05390 
SYS05400 
SYS05410 
SYS05420 
SYS05430 
SYS05440 
SYSC5450 
SYS05460 
SYS05470 
SYS05480 
SYS05490 
SYS05500 
SYS05510 
SYS05520 
SYS05530 
SYS05540 
SYS05550 
SYS05560 
SYS05570 
SYS05580 
SYS05590 
SYS05600 
SYS05610 
SYS05620 
SYS0563C 
SYS05640 
SYS05650 
SYS05660 
SYS05670 
SYS05680 
SYS05690 
SYS05700 
SYS05710 
SYS05720 
SYS05730 
SYS05740 
SYS05750 



OOFO 




OOCO 


OOFO 





OOEF 


00F1 





FF6A 


00F2 


c 


00E8 


00F3 





00C1 


00F4 







0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 



• PROVIDE PARAMETERS FOR SYSTEM LOADER 



BSS 

DC 

DC 

DC 

DC 

ORG 



NO. 



*-2 



SYS05770 
SYS05780 
SYS05790 
SYS05800 
SYS05810 
SYS05820 

ENTRIES IN SLET EXTRACT SYS05830 
SYS05840 





$ZEN0-« DISKZ WORD COUNT 

-'DZID PHASE ID 

$ZEND-6-«+l ADDR OF SLET EXTRACT 
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AOOR REL OBJECT ST. NO. 



LABEL OPCO FT OPERANDS 



ID/SEQNQ 



00F2 





0000 


0586 


DZOOO 


DC 




«— • 


ENTRY POINT 


SYS05860 


00F3 


00 


740000EE 


0587 




MDX 


L 


$DBSY,0 


LOOP UNTIL OPERATION IN 


SYS05870 


OOFS 





70FD 


0588 




MDX 




»-3 


•PROGRESS IS COMPLETE 


SYS05880 


00F6 





7002 


0589 
0590 


• 


MDX 




DZ020 


BR AROUND INT ENTRY POINT 


SYS05890 
SYS05900 








0591 


* INTERRUP1 


• ENTRY POINT 




SYS05910 








0592 


'» 










SYS05920 


00F7 





0000 


0593 


0Z010 


DC 




»— » 


INTERRUPT ADDRESS 


SYS05930 


OOFS 





7015 


0594 




MDX 




DZ180 


BR TO SERVICE INTERRUPT 


SYS05940 


O0F9 





690F 


0595 


DZ020 


STX 


1 


DZ100+1 


SAVE XR1 


SYS05950 


OOFA 





6A10 


0596 




STX 


2 


DZ100+3 


SAVE XR2 


SYS05960 


OOFB 





1008 


0597 




SLA 




8 


SHIFT INDICATOR 8 BITS 


SYS05970 


OOFC 





D03C 


0598 




STO 




DZ945 


SAVE FUNCTION INDICATOR 


SYS05980 


OOFD 





18D0 


0599 




RTE 




16 




SYS05990 


OOFE 





005B 


0600 




STO 




DZ235+1 


SAVE ADDR OF THE I/O AREA 


SYS06000 


OOFF 





6211 


0601 


DZ030 


LDX 


2 


•TCNT 


TURN BUSY INDICATOR ON AND 


SYS06010 


OlOO 





6AED 


0602 




STX 


2 


$DBSY 


•SET RETRY COUNT 


SYS06020 


0101 





COFO 


0603 




LD 




DZOOO 




SYS06030 


0102 





D0F4 


0604 




STO 




DZ010 




SYS06040 


0103 





7053 


0605 




MOX 




DZ230 


BR TO CONTINUE 


SYS06050 


0104 


00 


4C000000 


0606 
0607 


DZ060 

• 


BSC 


L 


•-• 


BR TO SERVICE THE INTERRUPT 


SYS06060 
SYS06070 








0608 


« START ALL DISK OPERATIONS 


SYS06080 








0609 


• 










SYS06090 


0106 





6908 


0610 


DZ070 


STX 


1 


DZ180+1 


SAVE ADDR OF THE I/O AREA 


SYS06100 


0107 


c 


081E 


0611 
0612 


• 


XIO 




0Z904 


START AN OPERATION 


SYS06110 
SYS06120 








0613 


• RETURN TO USER 




SYS06130 








0614 


• 










SYS06140 


0108 


00 


65000000 


0615 


DZ100 


LDX 


LI 


•— • 


RESTORE XR1 


SYS06150 


010A 


00 


66000000 


0616 




LDX 


L2 


•— • 


RESTORE XR2 


SYS06160 


010C 


00 


4C8000F7 


0617 
0618 


• 


BSC 


I 


DZ010 


RETURN 


SYS06170 
SYS06180 








0619 


• SERVICE ALL 


INTERRUPTS 


SYS06190 








0620 


• 










SYS06200 


010E 


00 


65000000 


0621 


DZ180 


LDX 


LI 


•— » 


ADDR OF I/O AREA TO XR1 


SYS06210 


0110 


00 


660000F2 


0622 




LDX 


L2 


DZOOO 


ADDR OF DZOOO TO XR2 


SYS06220 


0112 





0819 


0623 




XIO 




DZ910 


SENSE THE DSW 


SYS06230 


0113 





D0C9 


0624 




STO 




SODSM 


SAVE THE DSW 


SYS06240 


0114 





4850 


0625 




BOSC 




- 


SKIP IF ERROR BIT SET 


SYS06250 


0115 





70EE 


0626 




MDX 




DZ060 


BRANCH IF ERROR BIT NOT SET 


SYS06260 


0116 





C800 


0627 


DZ185 


LDO 




DZ902 


RESTORE WORD COUNT 


SYS06270 


0117 





D900 


0628 




STD 


1 





•AND SECTOR AODRESS 


SYS06280 


0118 


00 


74FF00EE 


0629 




MOX 


L 


$DBSY,-1 


SKIP IF 16 RETRIES DONE 


SYS06290 


011A 





703E 


0630 
0631 


* 


MDX 




DZ235 


BRANCH IF LESS THAN 16 


SYS06300 
SYS06310 








0632 


» TRAP OUT 


TO 


POSTOPERATIVE TRAP 


SYS06320 








0633 


* 










SYS06330 


011B 





C812 


0634 




LDD 




DZ912 


1+SCTR ADDR TO EXTENSION 


SYS06340 


one 





C014 


0635 




LO 




0Z915 




SYS06350 


011D 





4293 


0636 


DZ190 


BSI 


2 


*PST2-X2 


BR TO POSTOPERATIVE ER TRAP 


SYS06360 


011E 





1810 


0637 




SRA 




16 


CLEAR 


SYS06370 


011F 


00 


D4800198 


0638 




STO 


I 


DZ350+1 


•ARM POSITION 


SYS06380 


0121 





70DD 


0639 
0640 


• 


MDX 




DZ030 


RETRY OPERATION 


SYS06390 
SYS06400 








0641 


• CONSTANTS AND WORK AREAS 


SYS06410 








0642 


• 










SYS06420 


0122 




0000 


0643 




BSS 


E 







SYS06430 








0644 


• EVEN-NUMBERED LABELS , 


ARE ON EVEN BOUNDARIES 


SYS06440 


0122 





0001 


0645 


DZ900 


DC 




1 CONSTANT, READ-AFTER-SEEK WD CNT 


SYS06450 


0123 





0000 


0646 


DZ901 


OC 




CURRENT ARM POSITION 


SYS06460 


0124 





0000 


0647 


DZ902 


DC 




•-• LAST 


TWO WORDS OF SECTOR 


SYS06470 


0125 





0000 


0648 




DC 




•-• *PREVIOUSLY READ 


SYS06480 


0126 





0000 


0649 


DZ904 


OC 




•-• IOCC 


FOR OPERATION CURRENTLY 


SYS06490 


0127 





0000 


0650 


0Z905 


DC 




»-• *BEING PERFORMED 


SYS06500 


0128 





0000 


0651 


DZ906 


DC 




•-» SAVE 


AREA FOR IOCC FOR 


SYS06510 


0129 





0000 


0652 


0Z907 


OC 




«-• 'USER-REQUESTED OPERATION 


SYS06520 


012A 





0122 


0653 


DZ908 


DC 




DZ900 IOCC FOR READ 


SYS06530 


012B 





0000 


0654 


0Z909 


DC 




»-• »AFTER SEEK 


SYS06540 


012C 





0000 


0655 


DZ910 


DC 




•-• 2ND 1 


WORD OF SEEK IOCC 


SYS06550 


0120 





0000 


0656 


DZ911 


DC 




•-* SENSE IOCC 


SYS06560 


012E 





0000 


0657 


DZ912 


DC 




•-« INTERMEDIATE WORD COUNT 


SYS06570 


012F 





0000 


0658 


DZ913 


DC 




•-• AODR 


OF NEXT SEQUENTIAL SECTOR 


SYSC6580 


0130 





5002 


0659 


0Z914 


DC 




/5002 WRITE SELECT/POWER UNSAFE INDR 


SYS06590 


0131 





5004 


0660 


DZ915 


DC 




/5004 READ/WRITE/SEEK ERROR INDICATOR 


SYS06600 


0132 





FECO 


0661 


DZ916 


DC 




-320 TO BE USED TO SIMULTANEOUSLY 


SYS06610 


0133 





0001 


0662 




OC 




1 «DECR WD CNT, INCR SCTR ADDR 


SYS06620 


0134 





0080 


0663 


0Z920 


DC 




/0080 READ CHECK BIT FOR IOCC 


SYS06630 


0135 





0600 


0664 


DZ925 


DC 




/0600 2ND 


WD OF READ IOCC W/0 AREA CO 


SYS06640 


0136 





0008 


0665 


DZ930 


DC 




8 NO. : 


SECTORS PER CYLINDER 


SYS06650 


0137 





5000 


0666 


DZ935 


DC 




/5000 NOT 


READY DISPLAY CODE 


SYS06660 


0138 





0FF8 


0667 


DZ940 


DC 




/0FF8 'AND* OUT OR CODE, SCTR AODR 


SYS06670 


0139 





0000 


0668 


DZ945 


DC 




•-• FUNC 


INDICATOR (0=R£AD,1=WRITE) 


SYS06680 


013A 





0701 


0669 


0Z950 


OC 




/0701 SENSE IOCC W/0 AREA CODE 


SYS06690 


013B 





0007 


0670 


OZ955 


DC 




/0007 »AND« OUT ALL BUT SCTR NO. 


SYS06700 


013C 





OOOA 


0671 


DZ960 


OC 




*OCYL-$CYLN BASE DEFECTIVE CYL ADDR 


SYS06710 



330 



ADOR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



013D 





009F 


0672 


DZ965 


DC 




$ACDE BASE AREA CODE ADDR 


SYS06720 


013E 





FFFB 


0673 


DZ970 


DC 




$CYLN-$ACDE BASE ARM POSITION ADDR 


SYS06730 


013F 





0000 


0674 


0Z975 


DC 




•-« 2N0 ' 


WORD OF READ CHECK IOCC 


SYS06740 


0140 





0400 


0675 


0Z980 


OC 




/0400 2ND 


WD OF SEEK IOCC W/0 AREA CD 


SYS06750 


0141 





0141 


0676 


DZ985 


DC 




321 NO. 1 


WORDS PER SECTOR (M/ ADDR) 


SYS06760 


0142 





0000 


0677 


DZ990 


OC 




«-» CURRENT SECTOR NO. 


SYS06770 


0143 





FFFF 


0678 
0679 


DZ995 

• 


DC 




-1 MASK 


FOR COMPLEMENTING 


SYS06780 
SYS06790 








0680 


» RESERVED 


FOR SAVING CORE ON A DUMP ENTRY TO SKEL 


SYS06800 








0681 


'• 










SYS06810 


0144 




0002 


0682 




8SS 




2 THIS 


AREA MUST BE AT $CIBA+3l9 


SYS06820 


00F2 







0683 
0684 
0685 
0686 


X2 

• 
* 
* 


EQU 




DZOOO 




SYS06830 
SYS06840 
SYS06850 
SYS06860 


0146 





1810 


0687 


DZ210 


SRA 




16 




SYS06870 


0147 


c 


D0A6 


0688 




STO 




$DBSY 


CLEAR BUSY INDICATOR 


SYS06880 


0148 


00 


74FF0032 


0689 




MDX 


L 


$I0CT,-1 


OECREMENT IOCS COUNTER 


SYS06890 


014A 





1000 


0690 




NOP 








SYS06900 


014B 





70BC 


0691 
0692 


• 


MDX 




DZ100 


TO EXIT 


SYS06910 
SYS06920 








0693 


» PREPARE 


TO - 


rRAP OUT ON "POWER UNSAFE* CONDITION 


SYS06930 








0694 


• 










SYS06940 


014C 





C0E3 


0695 


DZ215 


LD 




DZ914 




SYS06950 


014D 





70CF 


0696 
0697 


* 


MDX 




DZ190 


BR TO TPAP OUT 


SYS06960 
SYS06970 








0698 


* PREPARE 


TO ■ 


rftAP OUT ON 'NOT READY* CONDITION 


SYS06980 








0699 


• 










SYS06990 


014E 





C0E8 


0700 


0Z220 


LD 




DZ935 


FETCH ERROR CODE 


SYS07000 


014F 


00 


44000028 


0701 




BSI 


L 


*PRET 


BR TO PREOPERATIVE ERR TRAP 


SYS07010 


0151 





703A 


0702 
0703 
0704 
0705 


• 
• 
• 


MDX 




DZ340 


RETRY THE OPERATION 


SYS07020 
SYS07030 
SYS07040 
SYS07050 


0152 





C0D9 


0706 


DZ225 


LD 




DZ910 


FETCH 1ST WD SEEK IOCC 


SYS07060 


0153 





18D0 


0707 




RTE 




16 




SYS07070 


0154 





C101 


0708 




LD 


1 


1 


FETCH DESIRED CYLINDER ADDR 


SYS07080 


0155 





1803 


0709 




SRA 




3 




SYS07090 


0156 


c 


704D 


0710 
0711 
0712 
0713 


• 
* 


MDX 




DZ380 


BR TO PERFORM THE SEEK 


SYS07100 
SYS07110 
SYS07120 
SYS07130 


0157 


00 


74010032 


0714 


DZ230 


MDX 


L 


$I0CT,1 


INCREMENT IOCS COUNTER 


SYS07140 


0159 


00 


65000000 


0715 


DZ235 


LDX 


LI 


•-» 


ADDR I/O AREA TO XR1 


SYS07150 


015B 





C900 


0716 




LOD 


1 







SYS07160 


015C 





D8C7 


0717 




STD 




DZ902 


SAVE WORD COUNT, SCTR ADDR 


SYS07170 


015D 





D8D0 


0718 




STD 




DZ912 




SYS07180 


015E 





1810 


0719 


DZ240 


SRA 




16 




SYS07190 


015F 





1084 


0720 




SLT 




4 


DRIVE CODE IN BITS 12-15 


SYS07200 


0160 





DOOE 


0721 




STO 




DZ280+1 




SYS07210 


0161 





80DB 


0722 




A 




DZ965 


COMPUTE AND STORE THE 


SYS07220 


0162 


c 


D01B 


0723 




STO 




DZ330+1 


•ADDR OF THE AREA CODE 


SYS07230 


0163 





80DA 


0724 




A 




DZ970 


COMPUTE AND STORE THE 


SYS07240 


0164 


c 


0033 


0725 




STO 




DZ350+1 


•ADDR OF THE ARM POSITION 


SYS07250 


0165 





80D6 


0726 




A 




DZ960 


ADD IN BASE DT ADDR 


SYS07260 


0166 





8008 


0727 




A 




DZ280+1 


ADD IN THE DRIVE 


SYS07270 


0167 





8007 


0728 




A 




DZ280+1 


•CODE TWICE MORE 


SYS07280 


0168 





D006 


0729 




STO 




DZ280+1 




SYS07290 


0169 





62FD 


0730 




LDX 


2 


-3 


INITIALIZE COUNTER FOR LOOP 


SYS07300 


016A 





69BD 


0731 




STX 


1 


DZ906 




SYS07310 


016B 





C101 


0732 




LD 


1 


1 


FETCH DESIRED SECTOR ADDR 


SYS07320 


016C 


c 


EOCB 


0733 




AND 




DZ940 


•AND* OUT SECTOR NO. 


SYS07330 


016D 





0101 


0734 


DZ250 


STO 


1 


1 


•AND DRIVE CODE 


SYS07340 


016E 


00 


94000000 


0735 


DZ280 


S 


L 


•-• 


SUB DEFECTIVE CYLINDER ADDR 


SYS07350 


0170 





4828 


0736 




BSC 




Z + 


SKIP IF BAD CYLINDER 


SYS07360 


0171 





7006 


0737 




MDX 




DZ300 


BR TO CONTINUE PROCESSING 


SYS0737O 


0172 





C101 


0738 




LD 


1 


1 




SYS07380 


0173 





80C2 


0739 




A 




DZ930 


INCREMENT SCTR ADDR BY 8 


SYS07390 


0174 


00 


7401016F 


0740 




MDX 


L 


DZ280+1.1 


POINT TO NEXT DEFECTIVE CYL 


SYS07400 


0176 





7201 


0741 




MOX 


2 


1 


SKIP AFTER 3RD PASS 


SYS07410 


0177 


c 


70F5 


0742 
0743 


* 


MDX 




DZ250 


COMPARE W/ NEXT DEF CYL ADR 


SYS07420 
SYS07430 








0744 


• CONSTRUCT THE 2N0 WORD OF ALL IOCC'S 


SYS07440 








0745 


« 










SYS07450 


0178 


00 


660000F2 


0746 


DZ300 


LDX 


L2 


DZOOO 


ADDR OF DZOOO TO XR2 


SYS07460 


017A 





C23D 


0747 




LD 


2 


DZ913-X2 


FETCH SECTOR ADDRESS 


SYS07470 


017B 





E249 


0748 




AND 


2 


DZ955-X2 


•AND* OUT ALL BUT SECTOR NO 


SYS07480 


017C 





D250 


0749 




STO 


2 


DZ990-X2 


SAVE SECTOR NO. 


SYS07490 


017D 


00 


C4000000 


0750 


DZ330 


LD 


L 


»— » 


FETCH AREA CODE 


SYS07500 


017F 





EA4E 


0751 




OR 


2 


DZ980-X2 


•OR* IN SEEK FUNCTION CODE 


SYS07510 


0180 





D23A 


0752 




STO 


2 


DZ910-X2 


SEEK IOCC MINUS DIRECTION 


SYS07520 


0181 





EA43 


0753 




OR 


2 


DZ925-X2 


•OR* IN READ FUNCTION CODE 


SYS07530 


0182 





0239 


0754 




STO 


2 


DZ909-X2 


IOCC FOR READ-AFTER-SEEK 


SYS07540 


0183 





EA50 


0755 




OR 


2 


DZ990-X2 


•OR* IN SECTOR NO. 


SYS07550 


0184 





9247 


0756 




S 


2 


DZ945-X2 


COMPLETE READ/WRITE CODE 


SYS07560 


0185 





0237 


0757 




STO 


2 


DZ907-X2 


2ND WD OF READ/WRITE IOCC 


SYS07570 
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ADOR REL OBJECT ST. NO- 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



0186 
0187 
0188 
0189 
018A 
018B 
018C 
0180 
J18E 
018F 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0199 
019A 



EA42 

8247 

D24D 

EA48 

023B 

CA3C 

0A3A 

D2EB 

4828 

70BC 

1002 

4828 

70BB 

100B 

4828 

70BC 

C101 
00 94000000 
4818 
7014 



019B 





1893 


019C 





180F 


0190 





1002 


019E 





EA3A 


019F 





18D0 


01A0 





4810 


01A1 


c 


7002 


01A2 





F251 


01A3 





8230 


01A4 





DA 34 


01A5 





4213 



01A6 
01A7 
01A8 



CA38 
DA 34 
4213 



01A9 C231 
01AA 00 D4800198 
01AC C 9101 
01AD 00 4C200116 



01AF 





CA3C 


01B0 





4808 


01B1 





7094 


01B2 





8A40 


01B3 





DA3C 


01B4 





4830 


01B5 





1810 


01B6 





824F 


01B7 





0100 


01B8 





CA36 


01B9 





DA34 


01BA 





C101 


01BB 





EA50 


01BC 





D101 


01BD 





4213 



01BE 
01BF 
01C0 
01C1 
01C2 
01C3 
01C4 
01C5 
01C6 
01C7 
01C8 
01CA 
01CB 
01CC 
01CD 
01CE 



C240 

0235 

C247 

4820 

4213 

CA32 

D900 

C23C 

4808 

70E9 
00 75000140 
C C900 
DA32 
CA3C 
D900 
708F 



0758 
0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 
0800 
0801 
0802 
0803 
0804 
0805 
0806 
0807 
0808 
0809 
0810 
0811 
0812 
0813 
0814 
0815 
0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
0828 
0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
0837 
0838 
0839 
0840 
0841 
0842 



OR 

A 

STO 

OR 

STO 

LDD 

DZ340 X10 
STO 
BSC 
MDX 
SLA 
BSC 
MDX 
SLA 
BSC 
MDX 
LD 

DZ350 S 

BSC 
MDX 

• 

* SEEK 

• 

SRT 

SRA 

SLA 

OR 

RTE 

BSC 

MDX 

EOR 

A 

02380 STD 
BSI 



DZ920-X2 

DZ945-X2 

DZ975-X2 

DZ950-X2 

DZ911-X2 

DZ912-X2 

DZ910-X2 

$DDSW-X2 

Z + 

DZ215 

2 

Z + 

DZ220 

11 

Z + 

DZ225 

1 

*— » 

+- 

DZ400 



19 

15 

2 

DZ910-X2 

16 

DZ380 
DZ995-X2 
DZ900-X2 
DZ904-X2 



2 
2 

2 

2 DZ070-1-X2 



•OR' IN READ CHECK BIT 

2ND WD OF READ CHECK IOCC 
•OR' IN SENSE IOCC BITS 
COMPLETED SENSE IOCC 
1+SCTR ADDR TO EXTENSION 
SENSE FOR DISK READY 
SAVE THE DSW 

SKIP UNLESS POWER UNSAFE OR 
•WRITE SELECT, BR OTHERWISE 
BR TO PREOPERATIVE ERR TRAP 
*IF DISK NOT READY, SKIP 
•OTHERWISE 



FETCH DESIRED CYLINDER ADDR 
SUBTRACT ARM POSITION 
SKIP IF SEEK NECESSARY 
BRANCH TO PERFORM OPERATION 



PUT NO. CYLINDERS IN EXT 
+ OR - SIGN TO BIT 15 
SHIFT SIGN TO BIT 13 
OR IN REMAINDER OF IOCC 

SKIP IF SEEK TOWARD HOME 
BRANCH IF SEEK TOWARD CENTR 
COMPLEMENT NO. CYLS TO BE 
•SOUGHT TO GET POSITIVE NO. 

START SEEK 



» SEEK COMPLETE INTERRUPT PROCESSING 

* 

LDD 2 DZ908-X2 SET UP IOCC FOR 

STD 2 DZ904-X2 »READ AFTER SEEK 

BSI 2 DZ070-1-X2 START READ-AFTER-SEEK 

* 

• READ-AFTER-SEEK COMPLETE INTERRUPT PROCESSING 



LD 
STO 
S 
BSC 



« READ/WRITE 

• 

DZ400 LDD 

BSC 
DZ410 MDX 

AD 

STD 

BSC 

SRA 

A 

STO 

LDD 

STD 

LD 

OR 

STO 

BSI 



DZ901-X2 
DZ350+1 
1 
DZ185.Z 



2 DZ912-X2 



DZ210 

DZ916- 

DZ912- 

Z- 

16 

DZ985- 



DZ906- 

DZ904- 

1 

DZ990- 

1 

DZ070- 



X2 



FETCH ADR OF SCTR JUST READ 
UPDATE ARM POSITION 
SUB DESIRED SCTR ADDR 
BR IF SEEK UNSUCCESSFUL 



FETCH INTERMEDIATE WD CNT 
SKIP, WD CNT NOT EXHAUSTED 
BRANCH IF READ/WRITE DONE 
DECREMENT WORD COUNT AND 
•INCREMENT SECTOR ADDRESS 
SKIP IF THIS IS LAST SECTOR 
CLEAR ACCUMULATOR 
ADD BACK 321 TO WD CNT 
STORE RESULT IN I/O AREA 
RESTORE IOCC FOR ORIGINALLY 
•RESUESTED OPERATION 
ADD SECTOR NO. TO SECTOR 
•ADDRESS 



1-X2 START READ/WRITE OPERATION 



• READ/WRITE COMPLETE INTERRUPT PROCESSING 



LD 

STO 

LD 

BSC 

BSI 

LDD 

STD 

LD 

BSC 

MDX 

MDX 

LDD 

STD 

LDD 

STO 

MDX 



DZ975 

DZ905 

DZ945 

Z 

DZ070 

DZ902 



DZ912 



X2 
X2 
•X2 



SET UP FOR READ CHECK 



FETCH FUNCTION INDICATOR 
SKIP IF READ REQUESTED 
1-X2 START READ CHECK OPERATION 
X2 RESTORE LAST 2 WDS OF SEC- 
TOR PREVIOUSLY READ 
-X2 FETCH INTERMEDIATE WD CNT 
+ SKIP IF MORE READING/WRTING 

DZ410 BRANCH IF FINISHED 
LI 320 POINT XR1 TO NEW I/O AREA 

1 SAVE LAST 2 WDS OF SECTOR 

2 DZ902-X2 »JUST READ/WRITTEN 

2 DZ912-X2 WD CNT, SCTR ADDR NEXT OP 
1 STORE BOTH IN NEW I/O AREA 

DZ240 BACK TO SET UP NEXT OPERATN 



SYS07580 
SYS07590 
SYS07600 
SYS07610 
SYS07620 
SYS07630 
SYS07640 
SYS07650 
SYS07660 
SYS07670 
SYS07680 
SYS07690 
SYS07700 
SYS07710 
SYS07720 
SYSC7730 
SYS07740 
SYS07750 
SYS07760 
SYS07770 
SYS07780 
SYS07790 
SYS07800 
SYS07810 
SYS07820 
SYS07830 
SYS07840 
SYS07850 
SYS07860 
SYS07870 
SYS07880 
SYS07890 
SYS07900 
SYS07910 
SYS07920 
SYS07930 
SYS07940 
SYS07950 
SYSC7960 
SYS07970 
SYS07980 
SYS07990 
SYS08000 
SYS08010 
SYS08020 
SYS08030 
SYS08040 
SYS08050 
SYS08060 
SYS08070 
SYSC8080 
SYS08090 
SYS08100 
SYSC8110 
SYS08120 
SYS08130 
SYS08140 
SYS08150 
SYS08160 
SYS08170 
SYS08180 
SYS08190 
SYS08200 
SYSC8210 
SYS08220 
SYS08230 
SYS08240 
SYS08250 
SYS08260 
SYS08270 
SYS08280 
SYS08290 
SYS08300 
SYS08310 
SYS08320 
SYS08330 
SYS08340 
SYS08350 
SYS08360 
SYS08370 
SYS08380 
SYS08390 
SYS08400 
SYS08410 
SYS08420 
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ADOR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 









0843 


* 












0844 


« 






OICF 




OOOB 


0845 
0846 
0847 


* 
# 


BSS 


11 


OlDA 





OOAO 


0848 




DC 


•CI 


C1DB 





OOCO 


0849 


$CIDN 


DC 


»-» 


OlOC 





COCO 


0850 




DC 


»— • 


OlOO 





OOCO 


0851 




DC 


#-» 


01DE 




0002 


0852 




BSS 


2 


C1E0 


c 




0853 


$ZEND 


EQU 


* 



PATCH AREA 



ID NO. OF CORE IMAGE LDR,P1 

CORE ADDR/CID NO. 

WORD COUNT 

SCTR ADDR 

WD CNT, SCTR ADDR COPCE LDS 

1 + END OF DISKZ 



SYS08430 
SYS08440 
SYS08450 
SYS08460 
SYS08470 
SYS08480 
SYS08490 
SYS08500 
SYS08510 
SYS08520 
SYS08530 



EQUIVALENCES 
ADDR REL OBJECT 



ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



006E 





C070 





0071 


c 


0078 





008C 





C08D 


c 


C08E 





008F 





0090 


C 


0091 





0092 





0093 


C 


0094 


c 


0095 





0096 





0097 


c 


0098 





OOAO 





00A1 






0014 
C016 

0017 

0018 

0019 C 
C01A 
C05A 
00B9 C 
00D4 C 
OOEF 
OOFO 
00F1 



0000 





0001 





0002 





C003 





0006 





0007 





0000 


c 


0000 


c 


0001 


c 


C002 





C003 





0004 





0005 


c 


0006 





0007 





0008 


c 


0009 


C 


OOOA 





OOOB 





0011 


c 


001A 





001C 






0855 


♦ 












SYS08550 


0856 


* EQUIVALENCES FOR 


PHASE ID NUMBERS 




SYS08560 


0857 


• 












SYS08570 


0858 


•SUP1 


EQU 


110 




PHASE ID FOR 


MCRA 


SYS08580 


0859 


•SUP3 


EQU 


112 




PHASE ID FOR 


DUMP PROGRAM 


SYS08590 


0860 


•SUP4 


EQU 


113 




OHASE ID FOR 


ERR ANAL PROG 


SYS08600 


0861 


•CLBO 


EQU 


120 




PHASE ID FOR 


CLB, PHASE 0/1 


SYS08610 


0862 


•1403 


EQU 


140 




PHASE ID FOR 


SYS 14C3 SUBR 


SYS08620 


0863 


•1132 


EQU 


141 




PHASE ID FOR 


SYS 1132 SUBR 


SYS08630 


0864 


•CPTR 


EQU 


142 




PHASE ID FOR 


SYS CP SUBR 


SYS08640 


0865 


•2501 


EQU 


143 




PHASE ID FOR 


SYS 2501 SUBR 


SYS08650 


0866 


•1442 


EQU 


144 




PHASE ID FOR 


SYS 1442 SUBR 


SYS08660 


0867 


•1134 


EQU 


145 




PHASE 10 FOR 


SYS 1134 SUBR 


SYS08670 


0868 


•KBCP 


EQU 


146 




PHASE ID FOR 


SYS KB/CP SUBR 


SYSC8680 


0869 


•CDCV 


EQU 


147 




PHASE ID FOR 


SYS CD CONV 


SYS08690 


0870 


•PTCV 


EQU 


148 




PHASE ID FOR 


SYS 1134 CONV 


SYS08700 


0871 


■K6CV 


EQU 


149 




PHASE ID FOR 


SYS KB CONV 


SYS08710 


0872 


•DZID 


EQU 


150 




PHASE ID FOR 


DISKZ 


SYS08720 


0873 


•DUD 


EQU 


151 




PHASE ID FOR 


OISKI 


SYS08730 


0874 


•DNID 


EQU 


152 




PHASE ID FOR 


DISKN 


SYS08740 


0875 


•CIL1 


EQU 


160 




PHASE ID FOR 


CI LOADER, PH 1 


SYS08750 


0876 


•CIL2 


EQU 


161 




PHASE ID FOR 


CI LOADER, PH 2 


SYS08760 


0877 


• 












SYS08770 


0878 


* EQUIVALENCES FOR 


RESIDENT MONITOR 




SYS08780 


0879 


* 












SYS08790 


0880 


tLKNM 


EQU 


$HASH 


SAVE AREA FOR NAME OF LINK 


SYS08800 


0881 


$RMSW 


EQU 


$HASH+2 


EXIT-LINK-DUMP SW(-1,0,+1) 


SYS08810 


0882 


$CXR1 


EQU 


$hASH+3 


SAVE AREA FOR XR1 


SYS08820 


0883 


$CLSW 


EQU 


$HASH+4 


SW FOR CORE 


[MAGE LDR,PH 2 


SYS08830 


3884 


$DMPF 


EQU 


$HASH45 


DUMP FORMAT 


:ode 


SYS08840 


3885 


$ACEX 


EQU 


$HASH+6 


ACC AND EXT 


«HEN ENTER DUMP 


SYS08850 


0886 


$CILA 


EQU 


$S150+1 


ADDR OF END OF DK I/O - 3 


SYS08860 


0887 


$IBT2 


EQU 


$1205+1 


ADR OF SERVICE PART OF DKIO 


SYSC8870 


0888 


$IbT4 


EQU 


$1405+1 


ADDR OF THE 


IBT 


SYS08880 


0889 


$SNLT 


EQU 


$DBSY+1 


SENSE LIGHT 


INDICATOR 


SYS08890 


0890 


$PAUS 


EQU 


0Z000-2 


PAUSEt INTERRUPT INDICATOR 


SYS08900 


0891 


$RWCZ 


EQU 


DZOOO-l 


READ/WRITE SWITCH (CARDZ) 


SYS08910 


0)92 


• 












SYS08920 


089. : : 


» fcQUIVALE 


NCES FOR 


ABSOLUTE SECTOR ADDRESSES 


SYS08930 


0894 


* 












SYS08940 


0895 


•I DAD 


EQU 





ADDR 


OF SCTR WITH 


ID,DEF CYL ADR 


SYS08950 


0896 


•DCOM 


ECU 


1 


ADDR 


OF SCTR CONTAINING DCOM 


SYS08960 


0897 


•RIAO 


EQU 


2 


AODROOF SCTR CONTAINING RES IMGE 


SYSC8970 


0898 


•SLET 


EQU 


3 


ADDR 


OF SCTR CONTAINING SLET 


SYS08980 


0899 


•RTBL 


ECU 


6 


ADDR 


OF SCTR CONTAINING RELD TBL 


SYS08990 


0900 


•HDNG 


EQU 


7 


ADDR 


OF SCTR CONTAINING PAGE HDR 


SYS09000 


0901 


•STRT 


EQU 





ADDR 


OF SCTR W/ COLD START PROG 


SYS09010 


0902 


• 












SYS09020 


C903 


* EQUIVALENCES FOR 


THE CORE IMAGE HEADER 


SYS09030 


0904 


* 












SYS09040 


0905 


•XEQA 


EQU 





RLTV 


ADOR OF CORE 


LOAD EXEC ADDR 


SYS09050 


0906 


•CKON 


EQU 


1 


RLTV 


ADDR OF WD CNT OF COMMON 


SYS09060 


0907 


•DREQ 


EQU 


2 


RLTV 


ADDR OF DISK 


I/O INDICATOR 


SYS09070 


0908 


•FILE 


EQU 


3 


RLTV 


ADOR OF NO. 


-ILES DEFINED 


SYS09080 


0909 


•HWCT 


EQU 


4 


RLTV 


ADDR OF WD CNT OF CI HEADER 


SYSC9090 


0910 


•LSCT 


EQU 


5 


SCTR 


CNT OF FILES 


IN WK STORAGE 


SYS09100 


0911 


•LOAD 


EQU 


6 


RLTV 


AODR OF LOAD 


ADDR CORE LOAD 


SYS09110 


0912 


•XCTL 


EQU 


7 


RLTV 


ADDR DISK1/0ISKN EXIT CTRL 


SYS09120 


0913 


•TVWC 


EQU 


8 


RLTV 


ADDR OF WD CNT OF TV 


SYS09130 


0914 


•In CNT 


ECU 


9 


RLTV 


ADDR OF WD CNT OF CORE LOAO 


SYS09140 


0915 


•XR3X 


EQU 


10 


RLTV 


ADDR OF EXEC 


SETTING OF XR3 


SYS09150 


0916 


•ITVX 


EQU 


11 


RLTV 


ADDR OF 1ST 


rfD OF ITV 


SYS09160 


0917 


•ILS4 


EQU 


17 


RLTV 


ADOR OF 1ST 


rfD OF IBT4 


SYS09170 


0918 


•OVSW 


EQU 


26 


RLTV 


ADDR OF LOCAL/SOCAL SWITCH 


SYS09180 


0919 


•CCRE 


EQU 


28 


CORE 


SIZE OF BUILDING SYSTEM 


SYS09190 
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ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



IO/SEQNO 



OOID C 



C005 C 
0003 

0000 C 

0001 

0003 

0004 
0000 

0002 



0005 
0380 C 
04C0 C 
0600 
0011 
00F9 
00F7 
00 7F 



0920 
0921 
0922 
0923 
0924 
0925 
0926 
0927 
092 8 
0929 
0930 
0931 
0932 
0933 
0934 
0935 
0936 
0937 
0938 
0939 
0940 
0941 
0942 



•HtND EQU 



29 



RLTV ADDR OF LAST WD OF CI HDR 



» EQUIVALENCES FOR LET/FLET 

• 

'LFHD EQU 5 WORD COUNT OF LET/FLET HEADER 

•LFEN EQU 3 NO OF WDS PER LET/FLET ENTRY 

•SCTN EQU RLTY ADDR OF LET/FLET SCTR NO. 

•UAFX EQU 1 RLTV ADDR OF SCTR ADDR OF UA/FXA 

•WDSA EQU 3 RLTV AOOR OF WDS AVAIL IN SCTR 

•NEXT EQU 4 RLTV ADDR OF ADDR NEXT SCTR 

•LFNM EQU RLTV ADDft OF LET/FLET ENTRY NAME 

•BLCT EQU 2 RLTV ADDR OF LET/FLET ENTRY DBCT 

• 

« MISCELLANEOUS EQUIVALENCES 

* 

•MXDR EQU 5 MAX NO. DRIVES SUPPORTED 

■COMZ EQU 896 LOW COMMON LIMIT FOR DISKZ 

•C0M1 EQU 1216 LOW COMMON LIMIT FOR DISK1 

•CCM2 EQU 1536 LOW COMMON LIMIT OF DISKN 

•TCNT EQU 17 NO. TRIES BEFORE DISK ERROR 

•DKEP EQU DZOO0+7 LIBF ENTRY TO DISK1/N 

•DKIP EQU DZ000+5 DISK I/O INTERRUPT ENTRY PT 

Y EQU 127 



SYS09200 
SYS09210 
SYS09220 
SYS09230 
SYS09240 
SYS09250 
SYS09260 
SYS09270 
SYS09280 
SYS09290 
SYS09300 
SYS09310 
SYS09320 
SYS09330 
SYS09340 
SYS09350 
SYS09360 
SYS09370 
SYS09380 
SYS09390 
SYS09400 
SYS09410 
SYS09420 



COLD START PROGRAM 

ADDR REL OBJECT ST. NO. 

0944 
0945 
0946 
0947 
0948 
0949 
0950 
0951 
0952 
0953 
0954 
0955 
0956 
0957 
0958 
0959 
0960 
0961 
0962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0981 
0982 
0983 
0984 
0985 
0986 
0987 
0988 
0989 
0990 
0991 
0992 
0993 
0994 
0995 



LABEL OPCD FT OPERANDS 



•STATUS - VERSION 2, MODIFICATION LEVEL 0. * 

• * 
•FUNCTION/OPERATION - * 

• THIS PROGRAM IS READ INTO CORE FROM SECTOR » 

• OF THE SYSTEM CARTRIDGE AND TRANSFERRED TO BY * 
» THE COLD START CARD. DEFECTIVE CYLINDER * 

• ADDRESSES, CARTRIDGE ID AND DISKZ ARE ALSO ON • 
« SECTOR AND ARE READ IN AT THE SAME TIME. • 
« ALL THAT REMAINS FOR THE COLD START PROGRAM I S« 
» TO READ IN THE RESIDENT IMAGE. SAVE THE * 

• CARTRIDGE ID AND TRANSFER TO THE AUXILIARY • 

• SUPERVISOR THROUGH $DUMP IN THE RESIDENT • 

• MONITOR. * 

• * 
•ENTRY - CR010-2 * 

• ENTER PROGRAM BY TRANSFER FROM COLD START CARD* 

• • 
•INPUT - • 

• THE CARTRIDGE ID OF LOGICAL DRIVE ZERO (THE • 

• SYSTEM CARTRIDGE* IS READ IN FROM SECTOR • 

• WITH THE COLD START PROGRAM. • 

• • 
•OUTPUT - • 

• • THE RESIDENT IMAGE IS READ INTO CORE FROM • 

• THE DISK. * 

• • IN COMMA- • 

• $ACDE • 

• JCIBA-1 • 

• SCION • 

• $CYLN * 

• *DBSY • 

• $IOCT • 

• • 
•EXTERNAL REFERENCES - • 

• DZOOO SUBROUTINE TO PERFORM DISK I/O. • 

• • 
•EXITS - • 

• THE ONLY EXIT IS TO THE AUXILIARY SUPERVISOR • 

• AS FOLLOWS- • 

• BSI $DUMP • 
» DC -1 • 



•TABLES/WORK AREAS 



N/A 



•ATTRIBUTES - • 

• THIS PROGRAM IS NOT NATURALLY RELOCATABLE. » 

• • 

•NOTES - * 

• DISK ERRORS RESULT IN A WAIT AT $PST2. * 

••••••••••••••••••••••••••••••••••••••••••••••••••• 



ID/SEQNO 

SYS09440 
SYS09450 
SYS09460 
SYS09470 
SYS09480 
SYS09490 
SYS09500 
SYSC9510 
SYS09520 
SYS09530 
SYS09540 
SYS09550 
SYS09560 
SYS09570 
SYS09580 
SYS09590 
SYS09600 
SYS09610 
SYS09620 
SYS09630 
SYS09640 
SYS09650 
SYS09660 
SYS09670 
SYS09680 
SYS09690 
SYS09700 
SYS09710 
SYS09720 
SYS09730 
SYS09740 
SYS09750 
SYS09760 
SYS09770 
SYS09780 
SYS09790 
SYS09800 
SYS09810 
SYS09820 
SYS09830 
SYS09840 
SYS09850 
SYS09860 
SYS09870 
SYS09880 
SYS09890 
SYSC9900 
SYS09910 
SYS09920 
SYS09930 
SYS09940 
SYS09950 
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ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 









0997 


• 












SYS09970 








0998 


* 


READ THE 


RESIDENT IMAGE INTO CORE 


SYS09980 








0999 


• 












SYS09990 


OlEO 





617F 


1000 






LDX 


1 


Y 




SYS1C000 


01E1 





C82E 


1001 






LDD 




CR920 


SET UP WORD COUNT AND SCTR 


SYS10010 


01E2 


00 


DC000004 


1002 


CR010 


STD 


L 


$CIBA-1 


•ADDR OF RESIDENT IMAGE 


SYS10020 


01E4 





D125 


1003 






STO 


1 


$CCYL-Y 


•INITIALIZE DEF CYL NO. 1 


SYS10030 


01E5 





C184 


1004 






LO 


1 


3-Y 


FETCH LOG DRIVE AREA CODE 


SYS10040 


01E6 





D120 


1005 






STO 


1 


$ACDE-Y 


•AND STORE IT IN COMMA 


SYS1C050 


01E7 





0029 


1006 






STO 




CR920+1 


SAVE THE AREA CODE 


SYS10060 


01E8 





C156 


1007 






LD 


1 


DZ000-2- 


■27-Y FETCH AND SAVE THE 


SYS10070 


01E9 





D0F1 


1008 






STO 




$CIDN 


•CARTRIDGE 10 


SYS10080 


OlEA 





C0F8 


1009 






LD 




CR010+1 


FETCH CORE ADDR OF RESIDENT 


SYS10090 


OlEB 





1890 


1010 






SRT 




16 


•IMAGE AND PUT IN EXTENSION 


SYS1C100 


OlEC 





D16F 


1011 






STO 


1 


*DBSY-Y 


CLEAR DISK BUSY INDICATOR 


SYS10110 


OlEO 





011B 


1012 






STO 


1 


$CYLN-Y 


INITIALIZE ARM POSITION 


SYS10120 


OlEE 





4173 


1013 






BSI 


1 


DZOOO-Y 


FETCH RESIDENT IMAGE 


SYS1C130 


OlEF 





3000 


1014 
1015 


• 




WAIT 






WAIT OUT THE INTERRUPT 


SYS10140 
SYS10150 








1016 


• 


INITIALIZE : 


ITEMS IN 


COMMA 


SYS10160 








1017 


• 












SYS10170 


OlFO 





1810 


1018 






SRA 




16 




SYS10180 


01F1 





D1B3 


1019 






STO 


1 


$IOCT-Y 


CLEAR IOCS COUNTER 


SYS10190 


01F2 





C81B 


1020 






LDD 




CR910 




SYS1C200 


01F3 





0985 


1021 






STD 


1 


$CIBA-1- 


■Y »FOR SAVING CORE ON THE CIB 


SYS10210 


C1F4 





C01C 


1022 






LD 




CR920+1 


FETCH AREA CODE 


SYS10220 


01F5 





D120 


1023 






STO 


1 


$ACDE-Y 


RESET AREA CODE 


SYS1C230 


01F6 





C016 


1024 






LD 




CR905 


INITIALIZE WD ZERO TO BR TO 


SYS10240 


01F7 





D181 


1025 
1026 


• 




STO 


1 


0-Y 


•DUMP ENTRY POINT PLUS 1 


SYS1C250 
SYS10260 








1027 


• 


TRANSFER 


TO 


THE AUXILIARY SUPERVISOR 


SYS10270 








1028 


• 


TO l 


COMPLETE 


INITIALIZATION 


SYS10280 








1029 


• 












SYS10290 


01F8 





41C0 


1030 






BSI 


1 


$DUMP-Y 


BR TO AUXILLIARY SUPERVISOR 


SYS10300 


01F9 





FFFF 


1031 
1032 


* 




DC 




-1 


•FOR JOB PROCESSING 


SYS10310 
SYS10320 


OlFA 




0013 


1033 
1034 


• 




BSS 




19 


PATCH AREA 


SYS10330 
SYS10340 








1035 


• 


CONSTANTS AND WORK AREAS 


SYS10350 








1036 


• 












SYS10360 


020D 





703F 


1037 


CR905 


MDX 


X 


$DUMP+1- 


-1 TO BE STORED IN LOCN ZERO 


SYS1C370 


020E 





0001 


1038 


CR910 


DC 




1 


WD CNT, SCTR ADDR OF CAUSE 


SYS10380 


020F 





0007 


1039 






DC 




•HDNG 


•HARMLESS WRITE TO DISK 


SYS1C390 


0210 





00E8 


1040 


CR920 


DC 




$DBSY-$CH12 WO CNT AND SCTR 


SYS10400 


0211 





0002 


1041 






DC 




•RIAD 


♦ADDR OF RESIDENT IMAGE 


SYS10410 


0212 




0212 


1042 






END 




• 




SYS10420 



CROSS-REFERENCE 



SYMBOL 


VALUE 


REL 


DEFN 


REFERENCES 




CR010 


01E2 





1002 


1009 






CR905 


020D 





1037 


1024 






CR910 


020E 





1038 


1020 






CR920 


0210 





1040 


1001 


1006 


1022 


DZOOO 


00F2 





0586 


0322 


0343 


0603 


DZ010 


C0F7 





0593 


0604 


0617 




DZ020 


0OF9 





0595 


0589 






DZ030 


OOFF 





0601 


0639 






DZ060 


0104 





0606 


0626 






DZ070 


0106 





0610 


0791 


0797 


0823 


DZ100 


0108 





0615 


0595 


0596 


0691 


DZ180 


010E 





0621 


0594 


0610 




DZ185 


0116 





0627 


0804 






DZ190 


011D 





0636 


0696 






DZ210 


0146 





0687 


0811 






DZ215 


014C 





0695 


0767 






DZ220 


014E 





0700 


0770 






DZ225 


0152 





0706 


0773 






DZ230 


0157 





0714 


0605 






DZ235 


0159 





0715 


0600 


0630 




DZ240 


015E 





0719 


0842 






DZ250 


016D 





0734 


0742 






DZ280 


016E 





0735 


07 21 


0727 


0728 


DZ300 


0178 





0746 


0737 






DZ330 


017D 





0750 


0723 






DZ340 


018C 





0764 


0702 






DZ350 


0197 





0775 


0638 


0725 


0802 


DZ380 


01A4 





0790 


0710 


0787 




DZ400 


01AF 





0809 


0777 






DZ410 


01B1 





0811 


0836 







0622 0683 0746 0890 0891 0940 0941 1007 1013 



0831 
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SYMBOL VALUE REL DEFN 



REFERENCES 



DZ900 
DZ901 
DZ902 
DZ904 
DZ905 
0Z906 
DZ907 
0Z908 
0Z909 
0Z910 
DZ911 
DZ912 
DZ913 
DZ914 
DZ915 
DZ916 
DZ920 
DZ925 
DZ930 
DZ935 
DZ940 
DZ945 
DZ950 
DZ955 
DZ960 
0Z965 
0Z970 
0Z975 
DZ980 
DZ985 
DZ990 
DZ995 
$ACDE 
$ACEX 
$CCAD 
SCH12 
$CIBA 
SCIDN 
$CILA 
$CLSW 
$COMN 
SCORE 
$CPTR 
JCTSW 
$CWCT 
$CXR1 
$CYLN 
$OABL 
SOADR 
$DBSY 
$DCDE 
$DCYL 
$DDSW 
$DMPF 
$DREQ 
SDUMP 

$EXIT 
$FLSH 
SFPAO 
$HASH 
$IBSY 
*IBT2 
$IBT4 
$IOCT 
$IREQ 
$1200 
$1205 
$1210 
$1290 
$1400 
$1403 
$1405 
$1410 
$1490 
$1492 
$1494 
$KCSW 
$LAST 
$LEVO 
$LEV1 
$LEV2 
$LEV3 
$LEV4 
$LEV5 
$LINK 



0122 
C123 
C124 
0126 
0127 
C128 
0129 
012A 
C12B 
012C 
012D 
C12E 
012F 
0130 
C131 
0132 
0134 
0135 
C136 
0137 
0138 
0139 
013A 
013B 
013C 
01 3D 
013E 
013F 
0140 
0141 
C142 
0143 
009F 
CO I A 
0074 
0006 
COOS 
010B 
005A 
0018 
0007 
OOOE 
C07E 
COOF 
0072 
C017 
C09A 
0011 
C010 
COEE 
0077 
C0A4 
OODD 
0019 
0012 
C03F 

0038 
0071 
0095 
0014 
C013 
C0B9 
00D4 
0032 
002C 
00B3 
00B8 
COBA 
00C2 
00C4 
OODO 
0003 
00D5 
OODE 
OOEO 
00E2 
C07C 
0033 
0008 
C009 
OOOA 
OOOB 
OOOC 
OOOD 
0039 



0645 
0646 
0647 
0649 
0650 
0651 
0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
0661 
0663 
0664 
0665 
0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
C676 
0677 
0678 
0428 
0885 
0355 
0252 
0251 
0849 
0886 
0883 
0253 
0265 
0365 
0266 
0353 
0882 
0418 
0268 
0267 
0530 
0358 
0439 
0521 
0884 
0269 
0314 
0357 
0300 
0351 
0409 
0271 
0270 
0887 
0888 
0291 
0285 
0465 
0471 
0472 
0477 
0497 
C507 
0511 
0512 
0522 
0523 
0526 
0363 
0292 
0257 
0258 
0259 
0260 
0261 
0262 
0304 



0653 
0801 
0627 
0611 
0828 
0731 
0757 
0795 
0754 
0623 
0762 
0634 
0747 
0695 
0635 
0812 
0758 
0753 
0739 
0700 
0733 
0598 
0761 
0748 
0726 
0722 
0724 
0760 
07 51 
0816 
0749 
0788 
0672 
0317 

1040 
0309 
1008 
0341 



0789 



0717 
0790 



0832 
0796 



0839 
0819 



0706 0752 0764 0784 



0718 0763 0809 0813 0834 C84C 



0756 0759 0829 



0827 



0755 0821 



0673 1005 1023 



1002 1021 



0318 

0671 0673 

0333 

0344 0587 

0671 1003 
0624 0765 
0320 



0319 1030 1037 



1012 

0602 0629 0688 



0889 1011 1040 



0880 0881 0882 0883 0884 0885 



0315 0331 

0505 

0259 0476 

0887 

0466 0467 

0469 0475 

0261 0516 

0504 

0888 

0499 0500 

0498 0515 

05 02 

0508 



0689 0714 1019 



0468 



0501 
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SYMBOL 


VALUE 


REL 


DEFN 


REFERENCES 


tLKNM 


0014 





0880 


0338 




$LSAD 


0075 





0356 






$NDUP 


0034 





0293 






SNXEQ 


0035 





0294 






$PAUS 


COFO 





0890 






$PBSY 


0036 





0295 






$PGCT 


0037 





0296 






SPHSE 


0078 





0359 






*PRET 


0028 





0280 


0282 


0701 


$PST1 


0081 





0371 


0373 




$PST2 


0085 





0377 


0379 


0636 


$PST3 


C089 





0383 


0385 




$PST4 


008D 





0389 


0391 




SRMSW 


C016 





0881 


0330 




tRWCZ 


C0F1 





0891 






$SCAN 


0020 





0274 






$SNLT 


COEF 





0889 






SSTOP 


0091 





0396 


0262 


0398 


SSYSC 


OOEO 





0524 






$SOOO 


C04D 





0329 


0300 




SSIOO 


C04E 





0330 


0306 


0324 


SS150 


0059 





0340 


0886 




*S900 


003C 





0308 


0321 


0323 


SS910 


C03E 





0310 


0329 




tUFDR 


0070 





0364 






$UFIO 


0079 





0360 






$ULET 


0020 





0286 






4KRD1 


C07B 





0362 






*HSDR 


007A 





0361 






$ZEND 


01E0 





0853 


0580 


0582 


$1132 


C07F 





0366 






$1403 


0080 





0367 






X2 


00F2 





0683 


0636 
0762 
0813 


0747 0748 0749 0751 0752 0753 0754 0755 0756 0757 0758 0759 0760 0761 
0763 0764 0765 0784 0788 0789 0790 0791 0795 0796 0797 0801 0809 0812 
0816 0818 0819 0821 0823 0827 0828 0829 0831 0832 0834 0839 0840 


Y 


007F 





0942 


1000 


1003 1004 1005 1007 1011 1012 1013 1019 1021 1023 1025 1030 


■BLCT 


C002 





C931 






•CDCV 


C093 





0869 






•cm 


COAO 





0875 


0848 




'CIL2 


C0A1 





0876 






■CLBO 


0078 





0861 






■CMON 


0001 





0906 






•COMZ 


0380 





0936 






•CGM1 


C4C0 





C937 






•COM2 


0600 





0938 






•CORE 


001C 





0919 






•CPTR 


C08E 





0864 






•OCOM 


0001 





0896 






•DKEP 


00F9 





0940 






•OKIP 


C0F7 





0941 






■DNID 


0098 





0874 






•DREQ 


0002 





0907 






«DZID 


0096 





0872 


0581 




•DUD 


0097 





0873 






■FILE 


0003 





0908 






•HDNG 


C007 





0900 


1039 




•HEND 


C01D 





0920 






•HWCT 


0004 





0909 






•IDAD 


0000 





0895 






■ILS4 


0C11 





0917 






•ITVX 


COOB 





0916 






•KBCP 


0092 





0868 






'KBCV 


0095 





08 71 






•LOAD 


0006 





0911 






•LFEN 


0003 





0925 






■LFHD 


0005 





0924 






•LFNM 


0000 





C93C 






•LSCT 


0005 





0910 






'MXDR 


0005 





C935 






•NEXT 


0004 





0929 






«OVSW 


C01A 





0918 






•PTCV 


0094 





C870 






•RIAD 


C002 





0897 


1041 




•RTBL 


0006 





0899 






•SCTN 


0000 





0926 






•SLET 


0003 





0898 






•STRT 


COOO 





0901 






•SUP1 


C06E 





0858 






•SUP3 


0070 





0859 






•SUP4 


0071 





0860 






•TCNT 


0011 





0939 


0601 




•TVHC 


0008 





0913 






■UAFX 


C001 





0927 






•VICNT 


0009 





0914 






•WDSA 


0003 





0928 






•XCTL 


C007 





0912 






•XEQA 


0000 





0905 






•XR3X 


OOOA 





0915 






•1132 


0080 





0863 






•1134 


0091 





0867 






•1403 


008C 





0862 






•1442 


C090 





0866 






'2501 


008F 





0865 







NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
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APPENDIX C. ABBREVIATIONS 



Below is a list of the abbreviations used in the 
listings of the 1130 Disk Monitor System, Version 
2. Included in this list are the abbreviations used 
in current 1130 and 1800 systems. 



Abbreviation 


Meaning 


ABS 


Absolute 


ACC 


Accumulator, Accumulate 


ACCT 


Account 


ACT 


Actual 


ADDL 


Additional 


ADDR 


Address 


ADJ 


Adjust 


ADV 


Advance 


AI 


Analog Input 


ALG 


Algebraic 


ALLOC 


Allocate 


ALLOCN 


Allocation 


ALPHA 


Alphabetic 


ALT 


Alternate, Alteration 


AO 


Analog Output 


APPDGE 


Appendage 


APPROX 


Approximate 


ARITH 


Arithmetic 


ASDNG 


Ascending 


ASM 


Assembler 


ASMBL 


Assemble 


ASGN 


Assign 


AUX 


Auxiliary 


AVAIL 


Availability 


AVG 


Average 


BEGNG 


Beginning 


BFR 


Buffer 


BKSP 


Backspace 


BLK 


Block 


BLKCNT 


Block Count 


BLNK 


Blank 


BR 


Branch 


BM 


Buffer Mark 


CAD 


Core Address 


CALC 


Calculate, Calculator 


CAR 


Channel Address Register 


CARR 


Carriage 


CART 


Cartridge 


CAT 


Catalog 


CATLGD 


Cataloged 



Abbreviation 


Meaning 


CC 


Card Column 


CD 


Card 


CDE 


Code 


CHAN 


Channel 


CHAR 


Character 


CHK 


Check 


CHG 


Change 


CHKPT 


Checkpoint 


CIB 


Core Image Buffer 


CIL 


Core Image Loader 


CLB 


Core Load Builder 


CLD 


Core Load 


CLR 


Clear 


CLS 


Close 


CMN 


COMMON 


CMP 


Compare 


CMPL 


Complement 


COMMA 


Communication Area 


COMP 


Compute 


CNSL 


Console 


CNT 


Count 


COL 


Column 


COMM 


Communication 


CON 


Constant 


COND 


Condition 


CONT 


Continue 


CORR 


Correction 


CP 


Console Printer, Control Parameter 


CPLD 


Coupled 


CPTN 


Computation 


CTR 


Counter 


CTRL 


Control 


CURR 


Current 


CVRT 


Convert 


CYL 


Cylinder 


DAO 


Digital-Analog Output 


DB 


Disk Block 


DC 


Data Channel 


DCMT 


Document 


DEC 


Decision 


DECML 


Decimal 


DECR 


Decrement 


DEF 


Defective 


DEFN 


Define 


DEL 


Delete 


DESCG 


Descending 
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DETM 


Determine 


FREQ 


Frequency 


DEVC 


Device 


FUNC 


Function 


DGT 


Digit 


FWD 


Forward 


DI 


Digital Input 


FXA 


Fixed Area 


DICT 


Dictionary 


FXD 


Fixed 


DIM 


Dimension 






DIRCTY 


Directory 


GEN 


Generator 


DISP 


Displacement 


GENL 


General 


DISPCHG 


Dispatching 


GM 


Group Mark 


DK 


Disk 


GT 


Greater Than 


DLMTER 


Delimeter 


GTE 


Greater Than or Equal To 


DPC 


Direct Program Control 






DR 


Drive 


HDLER 


Handler 


DSW 


Device Status Word 


HDR 


Header 


DT 


Defective Track 


HEX 


Hexadecimal 


DUP 


Disk Utility Program 


HI 


High 


DUPCTN 


Duplication 


HLT 


Halt 






HSK 


Housekeeping 


EBC 


EBCDIC 


HYPER 


Hyper tape 


ELIM 


Eliminate 






ELT 


Element 


IAR 


Instruction Address Register 


ENT 


Entry 


IC 


Instruction Counter 


EOF 


End Of File 


ro 


Identification 


EOJ 


End Of Job 


IDX 


Index 


EOR 


End Of Reel 


ILS 


Interrupt Level Subroutine 


EP 


Extended Precision 


ILSW 


Interrupt Level Status Word 


EQ 


Equal, Equate 


INCR 


Increment 


EQU 


Equate 


IND 


Indicate 


ERP 


Error Parameter 


INDN 


Indication 


ERR 


Error 


INDR 


Indicator 


ES 


Electronic Switch 


INFO 


Information 


ETV 


Executive Transfer Vector 


INITLZ 


Initialize 


EVAL 


Evaluate 


INQ 


Inquire 


EXCH 


Exchange 


INT 


Initial 


EXEC 


Execute 


INTFCE 


Interface 


EXP 


Exponent 


INTLD 


Interlude 


EX PR 


Expression 


INTM 


Interim 


EXTYP 


Exit Type 


INTMD 


Intermediate 


EXTR 


Extract 


INTNL 


Internal 






INTRPT 


Interrupt 


FAC 


Floating Accumulator 


I/O 


Input/Output 


FOR 


FORTRAN 


IOAP 


I/O Area Parameter 


FIO 


FORTRAN I/O 


IOCC 


I/O Control Command 


FLD 


Field 


IOCR 


I/O Control Routine 


FLDL 


Field Length 


INST 


Instruction 


FIG 


Figure 


INTERP 


Interpret 


FLET 


The Location Equivalence Table 


INVAL 


Invalid 




for the Fixed Area 


ISS 


Interrupt Service Subroutine 


FLT 


Floating 


ITER 


Iterate, Iteration 


FMT 


Format 


ITG 


Integer 


FR 


From 


I/P 


Input 
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KB 


Keyboard 


OPN 


Open 


KP 


Keypunch 


OPND 


Operand 






OPTN 


Option 


LBL 


Label 


OPTR 


Operator 


LCT 


List Control Table 


ORG 


Origin 


LD 


Load 


OVFLO 


Overflow 


LET 


Location Equivalence Table for 


OVLP 


Overlap 




User Area 


OVLY 


Overlay 


LFT 


Left 






LH 


Left-Hand, Leftmost 


PAPT 


Paper Tape 


LINKB 


Link/Busy Word 


PARAM 


Parameter 


LIT 


Literal 


PARTL 


Partial 


LN 


Line 


PERF 


Perforate, Perforated, Perforation 


LNG 


Length 


PERPHL 


Peripheral 


LO 


Low 


PFM 


Perform 


LOC 


Location 


PG 


Page 


LOCAL 


Load-on-Call Subroutine 


PGLIN 


Page and Line 


LT 


Less Than 


PH 


Phase 


LTE 


Less Than or Equal To 


PHYS 


Physical 


LTR 


Letter 


PK 


Pack 


LVL 


Level 


PKD 


Packed 






PNCH 


Punch 


MACH 


Machine 


PNDG 


Pending 


MAGT 


Magnetic Tape 


POS 


Position 


MAINT 


Maintain, Maintenance 


PR 


Print 


MALF 


Malfunction 


PREC 


Precision 


MAX 


Maximum 


PREV 


Previous 


MEM 


Memory 


PRGE 


Purge 


MIN 


Minimum 


PRI 


Priority 


MISC 


Miscellaneous 


PRINC 


Principal 


ML 


Mainline 


PROC 


Process 


MN 


Mnemonic 


PROG 


Program 


MOD 


Modification 


PROT 


Protect 


MON 


Monitor 


PRTN 


Partition 


MPXR 


Multiplexor 


PRVNT 


Prevent 


MPY 


Multiply 


PT 


Pointer, Point 


MRGE 


Merge 


PTR 


Printer 


MSG 


Message 


PTV 


Positive 


MSTR 


Master 










QUALFD 


Qualified 


NEC 


Necessary 


QUANT 


Quantity 


NEG 


Negative 


QUE 


Queue 


NO. 


Number 






NORM 


Normalize, Normalized 


RAND 


Random 


NUM 


Numeric 


R + S 


Reset and Start 


NXT 


Next 


R/W 


Read/Write 






RCD 


Record 


OBJ 


Object 


RCV 


Receive 


OP 


Operation 


RD 


Read 


O/P 


Output 


RDY 


Ready 
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REF 


Reference 


SUB 


Subtract 




REG 


Register 


SUBP 


Subprogram 




REL 


Release 


SUBR 


Subroutine 




RELOC 


Relocate, Relocatable 


SUBSC 


Subscript 




REQ 


Request, Require 


SUMM 


Summarize 




RET 


Return 


SUP 


Suppress 




RH 


Right-Hand, Rightmost 


SUP 


Supervisor 




RI 


Read in 


SYNC 


Synchronize, Synchronizer 




RLS 


Reels 


SYM 


Symbol 




RLTV 


Relative 


SYSRx 


System Reserved Word (x is 


a digit) 


RM 


Record Mark 


SYST 


System 




RO 


Read Out 


SW 


Switch 




RPT 


Report 








RSLT 


Result 


TBL 


Table 




RST 


Reset 


TECHNQE 


Technique 




RSTRT 


Restart 


TEMP 


Temporary 




RT 


Right 


TERM 


Terminal, Terminate 




RTE 


Route 


TM 


Tapemark 




RTN 


Routine 


TMN 


Transmission 




RWD 


Rewind 


TMT 
TOT 


Transmit 
Total 




SAD 


Sector Address 


TP 


Tape 




SAT 


Satellite 


TR 


Transfer 




SAR 


System Action Required 


TRK 


Track 




SCHED 


Schedule, Scheduler 


TRLR 


Trailer 




SCN 


Scan 


TRUNC 


Truncate, Truncation 




SCTR 


Sector 


TST 


Test 




SECT 


Section 


TU 


Tape Unit 




SEL 


Select 


TV 


Transfer Vector 




SEN 


Sense 


TW 


Typewriter 




SEQ 


Sequence 








SEQNO 


Sequence Number 


UA 


User Area 




SER 


Serial 


UAR 


User Action Required 




SEG 


Segment 


UFLO 


Underflow 




SIG 


Signal 


UNC 


Unconditional 




SIM 


Simulator 


UNLD 


Unload 




SK 


Skeleton 


UNPKD 


Unpacked 




SLET 


System Location Equivalence Table 


UTIL 


Utility 




SM 


Storage Mask 








SNGL 


Single 


V 


Version 




SOCAL 


System Load-On-Call Subroutine 


VAL 


Value 




SP 


Space 


VAR 


Variable 




SRCH 


Search 


VIOL 


Violation 




SPEC 


Specification, Specify 


VOL 


Volume 




ST 


Store 








STA 


Station 


WD 


Word 




STD 


Standard 


WM 


Word Mark 




STG 


Storage, Storing 


WR 


Write 




STMNT 


Statement 


WRK 


Work 




STP 


Standard Precision 


ws 


Working Storage 
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W/ 


With 


w/o 


Without 


XPL 


Explain, Explanation 


XR1 


Index Register 1 


XR2 


Index Register 2 


XR3 


Index Register 3 


XTR 


Extra 


Z 


Zero 


ZN 


Zone 



Abbreviation 




1st 


First 


2nd 


Second 


3rd 


Third 


4th 


Fourth 


5th 


Fifth 


6th 


Sixth 


7th 


Seventh 


8th 


Eighth 


9th 


Ninth 



Meaning 
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Disk Monitor 


Microfiche 


System Component 


Identification 


System Loader 




(Paper Tape) 




Bootstrap 


BAA. 001. 00 


Phase 1 


BAA. 002. 00 


Phase 2 


BAA. 003. 00 


System Loader (Card) 




Bootstrap 


BAA. 004. 00 


Core Image Loader 


BAA. 005. 00 


Phase 1 


BAA. 006. 00 


Phase 2 


BAA. 007. 00 


Disk Utility Program 




DUPCO 


JAA. 001. 00 


DCTL 


JAA. 002. 00 


STORE 


JAA. 003. 00 


FILEQ 


JAA. 004. 00 


DDUMP 


JAA. 005. 00 


DMPLT 


JAA. 006. 00 


DELET 


JAA. 007. 00 


DFINE 


JAA. 008. 00 


DEXIT 


JAA. 009. 00 


CDFAC 


JAA. 010. 00 


KBFAC 


JAA. 011. 00 


PTFAC 


JAA. 012. 00 


PRE CI 


JAA. 013. 00 


FORTRAN Compiler 




Phase 1 


KAA. 001.00 


Phase 2 


KAA.002.00 


Phase 3 


KAA. 003. 00 


Phase 4 


KAA. 004. 00 


Phase 5 


KAA. 005. 00 


Phase 6 


KAA. 006. 00 


Phase 7 


KAA. 007. 00 


Phase 8 


KAA. 008. 00 


Phase 9 


KAA. 009. 00 


Phase 10 


KAA. 010. 00 


Phase 11 


KAA. 011. 00 


Phase 12 


KAA. 012. 00 


Phase 13 


KAA. 013. 00 


Phase 14 


KAA. 014. 00 


Phase 15 


KAA. 015. 00 


Phase 16 


KAA. 016. 00 



Disk Monitor 


Microfiche 


System Component 


Identification 


Phase 17 


KAA. 017. 00 


Phase 18 


KAA. 018. 00 


Phase 19 


KAA. 019.00 


Phase 20 


KAA. 020. 00 


Phase 21 


KAA. 021. 00 


Phase 22 


KAA. 022. 00 


Phase 23 


KAA. 023. 00 


Phase 24 


KAA. 024. 00 


Phase 25 


KAA. 025. 00 


Phase 26 


KAA. 026. 00 


Phase 27 


KAA. 027.00 


Assembler Program 




Phase 


MAA. 001. 00 


Phase 1 


MAA. 007. 00 


Phase 1A 


MAA. 008. 00 


Phase 2 


MAA. 012. 00 


Phase 2 A 


MAA. 013. 00 


Phase 3 


MAA. 010.00 


Phase 4 


MAA. 011.00 


Phase 5 


MAA. 015. 00 


Phase 6 


MAA. 016. 00 


Phase 7 


MAA. 017. 00 


Phase 7A 


MAA. 018. 00 


Phase 8 


MAA. 019. 00 


Phase 8 A 


MAA. 020. 00 


Phase 9 


MAA. 014. 00 


Phase 10 


MAA. 003. 00 


Phase 10A 


MAA. 009. 00 


Phase 11 


MAA. 004. 00 


Phase 12 


MAA. 005. 00 


Error Message Phase 


MAA. 006. 00 


Punch Conversion 




Phase 


MAA. 021. 00 


Read Conversion Phase 


MAA. 002. 00 


Supervisor 




Monitor Control Record 




Analyzer 


NAA.001.00 


System Core Dump 




Program 


NAA. 002. 00 


Auxiliary Supervisor 


NAA.003.00 


Core Load Builder 


OAA.001.00 
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Disk Monitor 


Microfiche 


Disk Monitor 


Microfiche 


System Component 


Identification 


System Component 


Identification 


System Device Subroutines 


PAA. 001. 00 


FDQ 


SAA. 005.00 






FLOAT 


SAA. 005.00 


Standard Precision 




IFTX 


SAA. 005.00 


Arithmetic and Function 




NORM 


SAA. 005.00 


Subroutines 




SNR 


SAA. 005. 00 


FADD 


RAA. 001. 00 


XDD 


SAA. 006. 00 


FAXI 


RAA.001.00 


XMD 


SAA. 006. 00 


FDIV 


RAA. 001.00 


XMDS 


SAA. 006. 00 


FDVR 


RAA.001.00 






FGETP 


RAA. 001. 00 


FORTRAN Common 




FLD 


RAA. 002. 00 


Subroutines (No 




FMPY 


RAA. 002. 00 


Precision) 




FSBR 


RAA. 002. 00 


FBTD 


TAA. 001. 00 


FABS 


RAA. 002. 00 


IABS 


TAA. 001.00 


FATN 


RAA. 002. 00 


XSQR 


TAA. 001. 00 


FAXB 


RAA. 003. 00 


PAUSE 


TAA. 001. 00 


FEXP 


RAA. 003. 00 


STOP 


TAA. 002. 00 


FLN 


RAA. 003. 00 


SUBIN 


TAA. 002. 00 


FSIGN 


RAA. 003. 00 


SUBSC 


TAA. 002. 00 


FSIN 


RAA. 003. 00 


TTEST 


TAA. 002. 00 


FSQR 


RAA. 004. 00 


DATSW 


TAA. 002. 00 


FTANH 


RAA. 004. 00 


DVCHK 


TAA. 003. 00 


SFAR 


RAA. 004. 00 


FCTST 


TAA. 003. 00 


SFIF 


RAA. 004. 00 


ISIGN 


TAA. 003. 00 






OVERF 


TAA. 003. 00 


Extended Precision 




PDUMP 


TAA. 003. 00 


Arithmetic and Function 




SLITE 


TAA. 004. 00 


Subroutines 




TSTOP 


TAA. 004. 00 


EADD 


SAA. 001.00 


TSTRT 


TAA. 004. 00 


EAXI 


SAA. 001.00 






EDIV 


SAA. 001.00 


FORTRAN Trace 




EDVR 


SAA. 001.00 


Subroutines 




EGETP 


SAA. 001.00 


SGOTO 


TAA. 009. 00 


ELD 


SAA. 002. 00 


SIAR 


TAA. 009. 00 


EMPY 


SAA. 002. 00 


SIIF 


TAA. 009. 00 


ESBR 


SAA. 002. 00 






EABS 


SAA. 002. 00 


FORTRAN Conversion 




EATN 


SAA. 002. 00 


Subroutines and Tables 




EAXB 


SAA. 003. 00 


EBCTB 


TAA. 006. 00 


EEXP 


SAA. 003.00 


GETAD 


TAA. 006. 00 


ELN 


SAA. 003. 00 


HOLEZ 


TAA. 007.00 


ESIGN 


SAA. 003.00 


HOLTB 


TAA. 007.00 


ESIN 


SAA. 003.00 






ESQR 


SAA. 004. 00 


FORTRAN I/O Subroutines 




ETANH 


SAA. 004. 00 


SDFIO 


TAA. 004. 00 


SEAR 


SAA. 004. 00 


SDFND 


TAA. 005. 00 


SEIF 


SAA. 004. 00 


SFIO 


TAA. 005.00 


FARC 


SAA. 004. 00 


UFIO 


TAA. 006. 00 
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Identification 


FORTRAN Device 




Subroutines 




CARDZ 


TAA.006.00 


PAPTZ 


TAA.007.00 


PNCHZ 


TAA. 007. 00 


PRNTZ 


TAA.008.00 


PRNZ 


TAA. 008. 00 


READZ 


TAA. 008. 00 


TYPEZ 


TAA.008.00 


WRTYZ 


TAA.008.00 


Interrupt Level 




Subroutines (ILSs) 




ILSOO 


UAA. 001. 00 


ILS01 


UAA.001.00 


ILS02 


UAA. 001.00 


ILS03 


UAA.001.00 


ILS04 


UAA.001.00 


Interrupt Service 




Subroutines (ISSs) 




CARDO 


UAA. 002.00 


CARD1 


UAA. 002. 00 


OMPR1 


UAA. 002. 00 


PAPT1 


UAA. 002. 00 


PAPTN 


UAA. 002. 00 


PAPTX 


UAA. 003. 00 


PLOT1 


UAA. 003. 00 


PNCHO 


UAA. 003. 00 


PNCH1 


UAA. 003. 00 


PRNT1 


UAA. 004. 00 


PRNT3 


UAA. 004. 00 


READO 


UAA. 004. 00 


READ1 


UAA. 004. 00 


TYPEO 


UAA. 005. 00 


WRTYO 


UAA. 005. 00 


Conversion Subroutines 




and Tables 




EBPRT 


UAA. 005. 00 


HOLEB 


UAA. 005. 00 


HOLPR 


UAA. 006. 00 


HXBIN 


UAA. 006. 00 


PAPEB 


UAA. 006. 00 


PAPHL 


UAA. 006. 00 


PAPPR 


UAA. 006. 00 


SPEED 


UAA. 007. 00 



Disk Monitor 


Microfiche 


System Component 


Identification 


ZIPCO 


UAA. 007. 00 


BIDEC 


UAA. 007. 00 


BINDC 


UAA. 007. 00 


BINHX 


UAA. 007. 00 


CPEBC 


UAA. 008. 00 


CPHOL 


UAA. 008. 00 


CPPT3 


UAA. 008. 00 


DC BIN 


UAA. 008. 00 


DECBI 


UAA. 008. 00 


EBCCP 


UAA. 009. 00 


EBHOL 


UAA. 009. 00 


EBP A 


UAA. 009. 00 


EBPT3 


UAA. 009. 00 


HLEBC 


UAA. 009. 00 


HLPT3 


UAA. 010. 00 


HOLCP 


UAA. 010.00 


HOLL 


UAA. 010. 00 


PRTY 


UAA. 010. 00 


PT3CP 


UAA. 010. 00 


PT3EB 


UAA. 011. 00 


PTHOL 


UAA. 011. 00 


Utility Dump Subroutines 




DMP80 


UAA. 011. 00 


DMTD0 


UAA. 011. 00 


DMPD1 


UAA. 012. 00 


System Subroutines 




SYSUP 


UAA. 013. 00 


FLIPR 


UAA. 012. 00 


Mainline Programs 




ADRWS 


UAA. 014. 00 


COPY 


UAA. 014. 00 


DISC 


UAA. 015. 00 


DLCIB 


UAA. 016. 00 


DSLET 


UAA. 016. 00 


IDENT 


UAA. 017. 00 


ID 


UAA. 017. 00 


MODIF 


UAA. 018. 00 


PTUTL 


UAA. 019. 00 


CALPR 


UAA. 019. 00 


FSLEN 


UAA. 019. 00 


RDREC 


UAA. 020. 00 


Plotter Subroutines 




ECHAR 


VAA. 001. 00 
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ECHEX 


VAA. 001. 00 


EGRID 


VAA. 001. 00 


EPLOT 


VAA. 001.00 


ERULE 


VAA. 002. 00 


FCHAR 


VAA. 002. 00 


FCHRX 


VAA. 002. 00 


FGRID 


VAA. 002. 00 


EPLOT 


VAA. 003. 00 


FRULE 


VAA. 003. 00 


PLOTI 


VAA. 003. 00 


PLOTX 


VAA. 003. 00 


POINT 


VAA. 003. 00 


SCALE 


VAA. 004. 00 


SCALF 


VAA. 004. 00 


XYPLT 


VAA. 004. 00 


SCA Interrupt Service 




Subroutines (ISSs), 




Conversion Subroutines, 




and Conversion Tables 




EBC48 


WAA. 001. 00 


HOL48 


WAA.001.00 


HOLCA 


WAA. 001.00 


HXCV 


WAA.001.00 



Disk Monitor 


Microfiche 


System Component 


Identification 


PRNT2 


WAA. 002. 00 


SCAT1 


WAA. 003. 00 


STRTB 


WAA. 004. 00 


Stand-alone Programs 




Cold Start Card 


ZAA. 001.00 


Console Printer 




Core Dump 




(Paper Tape) 


ZAA. 003. 00 


Console Printer 




Core Dump 




(Card) 


ZAA. 002. 00 


DCIP 


ZAA. 004. 00 


1132/1403 Printer 




Core Dump 




(Paper Tape) 




Phase 1 


ZAA. 007. 00 


Phase 2 


ZAA. 008. 00 


1132/1403 Printer 




Core Dump (Card) 




Phase 1 


ZAA. 005. 00 


Phase 2 


ZAA. 006. 00 


PTREP 


ZAA. 009. 00 


UCART 


ZAA. 010. 00 
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INDEX 



Assembler program 65 

Communications area 66 

Core layout 71 

Double -buffering 67 

Error message phase 71 

Flowcharts 220 

General 65 

Intermediate I/O 67 

Introduction 2 

Overlay area 66 

Phase 67 

Phase 1 67 

Phase 1A 68 

Phase 2 68 

Phase 2A 68 

Phase 3 68 

Phase 4 68 

Phase 5 68 

Phase 6 69 

Phase 7 69 

Phase 7A 69 

Phase 8 69 

Phase 8A 69 

Phase 9 69 

Phase 10 70 

Phase 10A 71 

Phase 11 71 

Phase 12 71 

Program operation 65 

Punch conversion phase 71 

Read conversion phase 71 

Symbol table 66 
Auxiliary supervisor 23 

Cartridge -dependent parameters 

COMMA 3 

DCOM 3 
CIB (see core image buffer) 
Cold start loader 15 
Cold start program 15 
Cold start programs 15 

Cold start loader 15 

Cold start program 15 

Core layout 15 

Flowcharts 191 

Introduction 1 
COMMA (in-core communication area) 3 

(see also resident monitor) 
Communications areas 3 

Cartridge -dependent parameters 3 

Disk -resident (DCOM) 3 

Drive -dependent parameters 3 

Introduction 1 

In-core (COMMA) 3 



Core image buffer (CIB) 

Core load builder 34 
Core image loader 27 

Core layout 28 

Debugging/ analysis aids 30 

Flowcharts 203 

Introduction 1 

Phase 1 27 

Phase 2 27 

Special techniques 27, 28 
Core load builder 33 

Core image buffer (CIB) 34 

Core layout 33 

Debugging/ analysis aids 42 

DEFINE FILE table 39 

Disk buffers 34 

FILES information 35 

Flowcharts 205 

General comments 33 

Interrupt branch table (IBT) 35 

Interrupt level subroutines (ILSs) 37 

Introduction 2 

ISS table 35 

Linkage to LOCALs 37 

Linkage to SOCALs 38 

Load table 35 

LOCAL information 35 

LOCALs 37 

NOCAL information 35 

Overlay scheme 33 

Pass 1 36 

Pass 2 36 

Phase 40 

Phase 1 40 

Phase 2 40 

Phase 3 41 

Phase 4 41 

Phase 5 41 

Phase 6 42 

Phase 7 42 

Phase 8 42 

Phase 9 42 

Phase 10 42 

Phase 11 42 

Phase 12 42 

SOCALs 37 

Transfer vector (TV) 37 

DCIP 111 
DCOM 3 

DEFINE FILE table (DFT) 
Core load builder 39 
DFT (see DEFINE FILE table) 
Disk cartridge initialization program (DCIP) 111 
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Disk I/O subroutine 

Resident monitor 1 7 

Subroutine data charts 125 

System library 102 
Disk utility program (DUP) 43 

CFACE phase 59 

Communications area (CATCO) 45 

Control records 44 

Core layout 43 

DCTL phase 51 

DDUMP phase 55 

DEFINE phase 57 

DELETE phase 57 

DEXIT phase 58 

Diagnostic aids 63 

DUMPLET/DUMPFLET phase 56 

DUPCO phase 49 

FILEQ phase 54 

Fixed location equivalence table (FLET) 44 

Flowcharts 207 

Introduction 2 

KFACE phase 60 

Location equivalance table (LET) 44 

PFACE phase 60 

PRECI phase 62 

STORE phase 52 
Disk -resident communications area (DCOM) 3 
Drive -dependent parameters 

COMMA 3 

DCOM 3 
DUP (see disk utility program) 

FILES control record processing 

Disk utility program 54 

Supervisor 22 
FILES information in SCRA 

Disk utility program 55 

Supervisor 22 
Fixed location equivalence table (FLET) 44 
FLET 44 
Flowcharts 185 

Assembler program 220 

Cold start programs 191 

Core image loader 203 

Core load builder 205 

Disk utility program 207 

FORTRAN compiler 244 

Supervisor 1 93 

System library 274 

System loader 186 
FORTRAN compiler 73 

Communications area 76 

Compilation errors 81 

Compiler I/O 81 

Core layout 75 

Flowcharts 244 

General 73 

Introduction 2 



Phase area 77 
Phase objectives 
Phase 1 82 



73 



Phase 2 82 
Phase 3 83 
Phase 4 83 
Phase 5 84 
Phase 6 84 
Phase 7 85 
Phase 8 85 
Phase 9 86 
Phase 10 86 
Phase 11 87 
Phase 12 88 
Phase 13 89 
Phase 14 89 
Phase 15 90 
Phase 16 91 
Phase 17 92 
Phase 18 93 
Phase 19 94 
Phase 20 94 
Phase 21 95 
Phase 22 95 
Phase 23 95 
Phase 24 96 
Phase 25 96 
Phase 26 96 
Phase 27 96 
Statement string 80 
String area 77 
Symbol table 78 

IBT (see interrupt branch table) 
ILSs (see interrupt level subroutines) 
Interrupt branch table (IBT) 

Core load builder 35 
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